Ответ:

Объяснение:

напишу только алгоритм замены нечё барзеть  

for i:=1 to n step 2 do  

begin  

b:=a;  

a:=a[i+1];  

a[i+1]:=b;  

end;