Дан массив Х[N] целых чисел. Не используя других массивов, переставить его элементы в обратном порядке (программа Паскаль)

Question

Дан массив Х[N] целых чисел. Не используя других массивов, переставить его элементы в обратном порядке

Answer 1

var
  i, n, c: integer;
  A: array[1..20] of integer;
  
begin
  n := 5 + random(16);
  for i := 1 to n do begin
    a[i] := random(100);
    write(' ', a[i])
  end;
  { Переписываем массив: }
  for i := 1 to n div 2 do begin
    c := a[n + 1 - i];
    a[n + 1 - i] := a[i];
    a[i] := c
  end;
  writeln;
  { Вывводим массив: }
  writeln('Массив задом наперед:');
  for i := 1 to n do
    write(' ', a[i]);
  writeln
end.