составьте программу которая заполняет массив а (1 ... 10) случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый элемент со вторым, третий с четвертым, и т. д. выведите исходный и полученный массивы

Var

a:array[1 ... 10] of integer;

i:integer;

begin

randomize;

writeln ('Ishodnyy massiv:') ;

for i:=1 to 10 do

begin

a[i]:=random (10) + 1;

write (a[i],' ') ;

end;

for i:=1 to 5 do

begin

a[i*2]:=a[i*2]+a[i*2-1];

a[i*2-1]:=a[i*2]-a[i*2-1];

a[i*2]:=a[i*2]-a[i*2-1];

end;

writeln ('Novyy massiv:') ;

for i:=1 to 10 do

write (a[i],' ') ;

end.