Вопрос по информатике:

Создать программу: В заданном одномерном массиве переставить местами значения элементов, стоящих на четных местах со значениями элементов, стоящими на нечетных местах (т.е. 1 и 2, 3 и 4 и т.д.)
20 баллов

Ответ:

const n=10;var i,p:integer;a:array[1..n] of integer;beginfor i:=1 to n do begin  a[i]:=Random(-10,10);  write(a[i],' ');  end;writeln();i:=1;while(i<n) do begin  p:=a[i];  a[i]:=a[i+1];  a[i+1]:=p;  i+=2;  end;for i:=1 to n do  write(a[i],' ');end.