Одномерный массив

[antosha54]

Ребят, завтра сдача практики, я не успеваю сделать) помогите решить) для вас это не трудно будет.

Задача:
Ввести с клавиатуры одномерный массив и поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах. Вывести на экран исходный массив и массив после перестановки.

(в принципе, делается в паскале, но мне надо будет сделать как приложение в лазарусе, так что если не трудно, можно сразу там сделать)

[Sciv]

ReadLn(n);
for i:=1 to n do ReadLn(a[i]);
i:=2;
while i<=n do begin
  temp:=a[i-1];
  a[i-1]:=a[i];
  a[i]:=temp;
  i:=i+2;
end;

Объявление переменных и вывод массивов как-нибудь сами. А то что это за помощь, если мы все за Вас делать будем?

[antosha54]

спасибо, попробую разобраться)