Элементы заданного B(n) переписать в новый массив A(n) в обратном порядке( паскаль)

Const
N = 20;

var
a,b: array [1..N] of integer;
i : integer;

begin
//Для проверки заполним массив сл. числами
for i := 1 to N do
begin
    b[i] := Random(41) - 20;
    write(b[i]:4);
end;
writeln;
//Вывод в другой массив
for i := 1 to N do
begin
    a[i] := b[n-i+1];
    write(a[i]:4);
end;
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!