Составить программу которая выводит массив, где элементы с чётными индексами поменяются...

Question

Составить программу которая выводит массив, где элементы с чётными индексами поменяются местами с нечётными индексами.

Answer 1

Program tet; const n=6;
var i,k:byte;a:array[1..n] of byte;
beginwriteln('заполните таблицу ');
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:3);
i:=1;
while ifor i:=1 to n do write(a[i]:3);
end.