Паскаль

Имеется массив на 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