Составьте программу,которая заполняет массивa[1..10] случайными целыми числами в...

Question

Составьте программу,которая заполняет массивa[1..10] случайными целыми числами в диапазоне от 1 до 10,затем меняет местами первый элемент со вторым,третий с четвёрым и т.д.

Answer 1

Const n=10; mi=1; ma=10;
var a:array[1..n] of integer; i:integer;
begin
for i:=1 to n do begin a[i]:=random(ma-mi+1)+mi; write(a[i],' ') end;
writeln;
for i:=1 to n div 2 do begin a[2*i]:=a[2*i]+a[2*i-1]; a[2*i-1]:=a[2*i]-a[2*i-1]; a[2*i]:=a[2*i]-a[2*i-1] end;
for i:=1 to n do write(a[i],' ')
end.