Вывести элементы массива в обратном порядке через рекурсию (программа Паскаль)

Question

Вывести элементы массива в обратном порядке через рекурсию

Answer 1

procedure gen(i: integer; const k: integer; var x: arr);
begin
  if i <= k
    then begin
      x[i] := random(100);
      write(x[i]:3);
      gen(i + 1, k, x)
    end
    else writeln
end;
 
procedure rprn(k: integer; const x: arr);
begin
  if k > 0
    then begin
      write(x[k]:3);
      rprn(k - 1, x)
    end
    else writeln
end;
 
var
  a: arr;
  n: integer;
 
begin
  writeln('Количество элементов');
  readln(n);
  randomize;
  gen(1, n, a);
  rprn(n, a)
end.