Написать программу, которая...

Написать программу, которая в заданном одномерном массиве размерности N меняет местами соседние элементы, стоящие на чётных местах, с соседнимиэлементами, стоящими на нечётных местах.

 

var a:array[1..10] of integer;
i,tmp:integer;

begin  cls;
 for i:=1 to 10 do a:=i;
 
 for i:=1 to 10 do
 begin
 if i mod 2 = 1 then
 begin
 tmp:=a;
 a:=a[i+1];
 a[i+1]:=tmp;
 end;
 
 end;
for i:=1 to 10 do
write(a, ' ');

end.