Элементы заданного массива B50 переписать в новый массив A50 в обратном порядке.

Question

Элементы заданного массива B50 переписать в новый массив A50 в обратном порядке.

Answer 1

Const
    n = 50;
var
    i: integer;
    a, b: array[1..n] of integer;

begin
    for i := 1 to n do
    begin
        a[i]:= random(100)-50;
        write(a[i], ' ');
    end;
    writeln;
    
    for i := 1 to n do
    begin
        b[i]:= a[n-(i-1)];
        write(b[i], ' ');
    end;
end.