Оформите программу на ABC ПАСКАЛЕ, обеспечивающую: - заполнение одномерного массива R с клавиатуры N целыми значениями;

- за минимальное число проходов по массиву R последовательное (а-б-в-г) формирование одномерного массива Q значениями элементов массива R в указанном порядке их исходного расположения в массиве R;

а) сначала нечётные элементы, расположенные на четных позициях, в исходном порядке;

б) затем чётные элементы на нечетных позициях в порядке, обратном исходному,

в) потом нечётные элементы на нечетных позициях в порядке, обратном исходному,

г) затем чётные элементы на четных позициях в исходном порядке,

- Вывод элементов массива Q;

q1 - указатель. В начале программы указывает на второй элемент последовательности

Программа говорит, что если указатель q1 указывает на единицу, то надо ее исправить на единицу и сместиться вправо... т.е. указатель будет двигаться вправо до тех пор, пока не встретит ноль.

Таким образом в конце выполнения первого правила указатель q1 сместится в конец последовательности (до нуля)

Далее, если указатель q1 показывает на ноль, то меняем ноль на единицу, меняем указатель q1 на q2 и сдвигаемся влево.

После выполнения второго правила получаем последовательность 0111111 и указатель q2 на предпоследнюю единицу.

Третьим правилом q2 - сдвигается влево до достижения нуля

После его выполнения получаем последовательность 0111111 и указатель q2 на первый ноль

Четвертое правило заменяет указатель q2 на q0 и сдвигается вправо

Таким образом получаем в конце программы последовательность 0111111  и  указатель q0 на первую единицу.

Объяснение:

Вот программа : program xxx; 
<p>program xxx;</p><p>&nbsp;&nbsp; var i, k, d, e, s : integer;</p><p>begin</p><p>&nbsp; k:=0;</p><p>&nbsp;for i:= 10 to 99 do</p><p>&nbsp;&nbsp; begin</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d:= i div 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e:= i mod 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=d + e;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if i mod s = 0 then k:=k+1</p><p>&nbsp;&nbsp; end;</p><p>&nbsp;&nbsp; write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p>&nbsp;&nbsp; readln</p><p>end.</p>