Заполнить массив из 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; beginRandomize;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 -7 4 -6 10 7 10 -7 1 new A: -6 4 -7 -10 -8 1 -7 10 7 10