Pascal. Задача 4-1

Пользователь вводит массив A из 10 целых чисел. Сформировать массив B, в котором все элементы следуют в обратном порядке (первый элемент в B является последним в A и т.д.).

Решение

Const
  N = 10;
var
  i : integer;
  A, B : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']; ');
      readln(A[i]);
    end;
  for i := 1 to N do
    B[11 - i] := A[i];
  for i := 1 to N do
    writeln('B[', i, ']: ', B[i]);
  writeln;
end.