Массиве вставить число равное максимальному элементу после минимального элемента
Паскаль массивы решить задачу

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var amax := a.Max;

 var imin := a.IndexMin + 1;

 a := a[:imin] + Arr(amax) + a[imin:];

 a.Print

end.