Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить инверсию отдельного для 1-ой и 2-ой половин массива.Пример:Исходный массив:4 -5 3 10 -4 -6 8 -10 1 0Результат:-4 10 3 -5 4 0 1 -10 8 -6

const n=10; 
var a:array[1..n] of integer;
i,t:integer; 
begin
Randomize;
writeln('A:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
for i:=1 to n div 4 do
 begin t:=a[i]; a[i]:=a[n div 2-i+1]; a[n div 2-i+1]:=t;
    t:=a[n div 2+i]; a[n div 2+i]:=a[n-i+1]; a[n-i+1]:=t; end;
writeln('new A:');
for i:=1 to n do write(a[i]:4);
writeln;
end.

Пример:
A:
 -8 -10-74-610710-71
new A:
 -64-7 -10-81-710710