Заполнить одномерный массив размером [8] случайными числами в интервале от -50 до 50. поменять местами равноотстоящие от центра элементы. например: на входе: -5 6 7 8 -1 3 12 36 на выходе: 36 12 3 -1 8 7 6 -5

Const n=8;
var a:array[1..n] of integer;
b,i:integer;
begin
Randomize;
for i:=1 to n do 
 begin
 a[i]:=random(20)+1;
 write(a[i]:3);
 end;
writeln;
for i:=1 to n div 2 do
 begin
 b:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=b
 end;
for i:=1 to n do write(a[i]:3);
writeln;
end.

Пример:
  9  5  6 11 13  4 16 18
 18 16  4 13 11  6  5  9