Массив из 15 элементов заполнить случайными целыми числами от 0 до 35 и вывести на экран в обратном порядке. Программа: PascalABC

var

 arr : array[1..15] of integer;

begin

 writeln('Заполняем массив случайными числами: ');

 for var i := 1 to 15 do

   begin

   arr[i] := random(0, 35);

   write(arr[i], ' ');

   end;

 writeln;

 writeln('Вывод элементов в обратном порядке: ');

 for var i := 15 downto 1 do

   write(arr[i], ' ');  

end.

Программа:

Pascal:

var arr: array[1..15] of integer;

 i: integer;

begin

 write('Исходный массив: ');

 for i := 1 to 15 do begin

   arr[i] := random(0, 35);

   write(arr[i], ' ');

 end;

 write(#10, 'Массив в обратном порядке: ');

 for i := 15 downto 1 do write(arr[i], ' ');

end.