Question

Блин, выручайте))0)
Дан массив состоящий из N элементов. Элементы массива- произвольные целые числа, которые компютер должен сгенерировать самостоятельно в диапозоне от -50 до 50. Вывести на экранэлементы начального массива а затем вывести их в обратном порядке.

Answer 1

const N=10;

var

i:integer;

mas:array[1..N] of integer;

begin

randomize;

for i:=1 to N do begin

mas[i]:=random(-50,50);

write(mas[i],' ' );

end;

writeln();

for i:=N downto 1 do

write(mas[i],' ');

end.