Question

нужна помощь с задачами с сортировкой массива

Answer 1

// PascalABC.NET

begin

 // 1

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

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

 a.Println;

 var imax := a.IndexMax;

 a := a?[:imax] + Arr(imax + 1) + a?[imax:];

 a.Println;

 // 2

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

 var b := ArrRandom(m, -99, 99);

 b.Println;

 var imin := b.IndexMin + 1;

 b := b?[:imin] + Arr(imin) + b?[imin:];

 b.Println

end.