Question

Задан массив из 19 случайных чисел из промежутка от -20 до 20.Вывести элементы массива в строку, а во вторую строку в обратном порядке. 

Answer 1

program nancik;
var a:array[1..19] of integer;   
n,i:integer;
begin
for i:=1 to 19 do begin
a[i]:=random(40)-20;
write(a[i],' ');
end;
writeln;
for i:=19 downto 1 do
write(a[i],' ');
end.