Напишите программу, которая переставляет соседние элементы массива (1-й элемент поменять с 2-м, 3-й с 4-м и т. д. Если элементов нечетное число, то последний элемент остается на своем месте).

var i, n, k:integer; a:array[1 ... 35]of integer;

begin

write ('Введите размер массива: '); readln (n);

writeln ('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read (a[ i]); readln;

for i:=1 to n div 2 do begin k:=a[2*i]; a[2*i]:=a[2*i-1]; a[2*i-1]:=k end;

for i:=1 to n do write (a[ i]:8); writeln; readln

end.