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

Question

Информатика

Аверий

17 июля, 22:53

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

+4

Ответы (1)

Знаете ответ на вопрос?

Ивася · 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.