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

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