ПАСКАЛЬ!
Дан массив размера 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.