Question

Однамерный массив А заполнен дестью случайными целыми числами от 1 до 20. Напишите программу вывода элементов массива в обратном порядке.

Answer 1

var a:array [1..10] of integer; i:integer;
begin
for i:=10 downto 1 do
begin
a[i]:=random(1,20);
write(a[i]:3);
end;
end.