Дан массив из n элементов. все элементы масивы расположить в обратном порядке

Question

Дан массив из n элементов. все элементы масивы расположить в обратном порядке

Answer 1

Const
  n=15;
var
  a:array[1..n] of integer;
  i,t:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do begin
    a[i]:=Random(50)+10;
    Write(a[i]:3)
    end;
  Writeln;
  for i:=1 to n div 2 do
    begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t end;
  Writeln('Результирующий массив');
  for i:=1 to n do Write(a[i]:3);
  Writeln;
end.

Пример
Исходный массив
 25 19 47 34 22 54 52 11 40 13 25 47 29 50 58
Результирующий массив
 58 50 29 47 25 13 40 11 52 54 22 34 47 19 25