Question

Дан массив из 20 элементов, заполненный случайными числами в диапазоне от – 10 до +10. Поменять местами элементы, стоящие на четных и нечетных местах и вывести на экран.

Answer 1

Var
a: array [1..20] of integer;
i: byte;
p: integer;
begin
Randomize;
write('Исходный массив:');
for i:=1 to 20 do 
begin 
a[i] := Random(21)-10; 
write(a[i]:4); 
end;
writeln;
write('Массив-результат:');
i:=1;
while i<20 do 
begin 
p:=a[i];  a[i]:=a[i+1];  a[i+1]:=p; 
i:=i+2; 
end;
for i:=1 to 20 do write(a[i]:4);
end.