Программа в паскале абс. работаем сейчас с массивом. вот, собственно, и : "две подряд встречающиеся единицы заменить на две двойки"

Код в файле. В 1 строке вводим N - размер массива, затем N чисел- сам массив.

Меняет только 2 соседние единицы, т.е. для массива {1 1 1} сделает {2 2 1}