Помогите с инфой, плес
ДАН МАССИВ, ПОМЕНЯТЬ МЕСТАМИ ЭЛЕМЕНТЫ, СТОЯЩИЕ НА ЧЕТНЫХ И НЕЧЕТНЫХ МЕСТАХ, КОМАНДУ ВЕТВЛЕНИЯ НЕ ИСПОЛЬЗУЕМ.
программа для обычного паскаля
ДАН МАССИВ, ПОМЕНЯТЬ МЕСТАМИ ЭЛЕМЕНТЫ, СТОЯЩИЕ НА ЧЕТНЫХ И НЕЧЕТНЫХ МЕСТАХ, КОМАНДУ ВЕТВЛЕНИЯ НЕ ИСПОЛЬЗУЕМ.
программа для обычного паскаля
More Questions From This User See All
Answers & Comments
Verified answer
Const n=10;var a:array[1..n] of integer;
i,h:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
for i:=1 to n div 2 do
begin
h:=a[2*i-1]; a[2*i-1]:=a[2*i]; a[2*i]:=h
end;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
8 7 12 28 22 50 15 36 6 40
7 8 28 12 50 22 36 15 40 6