Дан массив С, состоящий из n элементов, элементы массива - произвольные целые числа. вывести на экран элементы массива в обратном порядке

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

uses crt;

var

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

i, n:integer;

begin

writeln ('skolko elementov?') ;

readln (n) ;

randomize;

for i:=1 to n do begin

a[i]:=random (100) ;

write (a[i]:3) ;

end;

writeln;

for i:=n downto 1 do

write (a[i]:3) ;

end.