Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Const n=10;
var i,p:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
  a[i]:=Random(-10,10);
  write(a[i], );
  end;
writeln();
i:=1;
while(i  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.