Question

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

Answer 1

===== 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.