Выполнить реверс массива из 10 элементов, заполненного случайными числами в интервале [-100; 100].

Readln (n) ;

for i:=1 to n do

a[i]:=random (100) ; / / тут можно ввести макс. значение для рандома

k:=n div 2;

for i:=1 to k do

begin

t:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=t;

end;

inc (k) ;

for i:=k to n do

begin

t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t;

end;

for i:=1 to n do

write (a[i],' ') ;

writeln;

readln;

end.