Question

Помогите....
Для массива С[8], элементы которого случайные целые числа [5; 53] вывести все элементы в обратном порядке.

Answer 1

program ArrayPrintBack;

var

 a: array[1..8] of integer;

 i: integer;

begin

 Randomize;

 for i := 1 to 8 do

 begin

   a[i] := 5 + Random(49);

   Write(a[i]:3)

 end;

 

 Writeln;

 

 for i := 8 downto 1 do

   Write(a[i]:3)

end.