Объяснение:
напишу только алгоритм замены нечё барзеть
for i:=1 to n step 2 do
begin
b:=a;
a:=a[i+1];
a[i+1]:=b;
end;
