Паскаль

Имеется массив на 10 элементов. Все элементы - натуральные числа. Каждый четный элемент поменять местами с предыдущим. Вывести полученный массив.

Const n=10;

var a:array[1 ... n] of integer;

i, b:integer;

begin

Randomize;

writeln ('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random (51);

write (a[i]:4);

end;

writeln;

for i:=2 to n do

if a[i] mod 2 = 0

then begin b:=a[i]; a[i]:=a[i-1]; a[i-1]:=b end;

writeln ('Измененный массив');

for i:=1 to n do write (a[i]:4);

writeln;

end.

Пример:

Исходный массив:

23 40 43 45 29 17 11 22 23 27

Измененный массив

40 23 43 45 29 17 22 11 23 27