Помогите с инфой, плес ДАН МАССИВ, ПОМЕНЯТЬ МЕСТАМИ ЭЛЕМЕНТЫ, СТОЯЩИЕ ** ЧЕТНЫХ И...

Question

Помогите с инфой, плес
ДАН МАССИВ, ПОМЕНЯТЬ МЕСТАМИ ЭЛЕМЕНТЫ, СТОЯЩИЕ НА ЧЕТНЫХ И НЕЧЕТНЫХ МЕСТАХ, КОМАНДУ ВЕТВЛЕНИЯ НЕ ИСПОЛЬЗУЕМ.
программа для обычного паскаля

Comments

Как альтернатива:beginvar n:= ReadInteger('Введите длинну массива: ');var a:=ArrRandom(n, -99, 99);a.Println;var tmp:= a[0];var i:integer;for i:= 0 to n-2 doa[i]:=a[i+1];a[n-1]:=tmp;a.Println;end.

Answer 1

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