Выполнить реверс массива из 10 элементов, заполненного случайными числами в интервале [-100; 100].

Question

Информатика

Тоня

24 июля, 00:11

Выполнить реверс массива из 10 элементов, заполненного случайными числами в интервале [-100; 100].

+4

Ответы (1)

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

Алла · Answer 1

Readln (n) ;

for i:=1 to n do

a[i]:=random (100) ; / / тут можно ввести макс. значение для рандома

k:=n div 2;

for i:=1 to k do

begin

t:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=t;

end;

inc (k) ;

for i:=k to n do

begin

t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t;

end;

for i:=1 to n do

write (a[i],' ') ;

writeln;

readln;

end.