ПАСКАЛЬ! Дан массив размера N. Вывести его элементы в обратном порядке.

Можно так:

Const N = 10;
Var A:array[1..N] of integer;
i:integer;
Begin
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
For i:= N downto 1 do
    Write(A[i],' ');
End.

и так:

Const N = 10;
Var A:array[1..N] of integer;
i:integer;
Begin
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
For i:= 1 to N do
    Write(A[N-i+1],' ');
End.