Создать программу: В заданном одномерном массиве переставить местами значения элементов, стоящих на четных местах со значениями элементов, стоящими на нечетных местах (т.е. 1 и 2, 3 и 4 и т.д.)
20 баллов
20 баллов
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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<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.