Переставить элементы, стоящие на нечетных местах, с соответствующими элементами на четных местах (программа Паскаль)
Вопрос посетителя
Переставить элементы, стоящие на нечетных местах, с соответствующими элементами на четных местах
Ответ эксперта
program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,n,r: integer;
m:mas;
begin writeln (‘введи кол-во эл-в массива’) ;
readln (n);
randomize;
for i:=1 to n do
begin
m[i]:=random(45)+1;
write(m[i], ‘ ‘);
end;
writeln;
i:=1;
while i<= n-1 do
begin
r:=m[i]; m[i]:=m[i+1]; m[i+1]:=r;
inc(i,2); end;
for i:=1 to n do
write(m[i], ‘ ‘);
end.