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

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.

---

Comments

а это две задачи вместе?

---

Да, разве не видно? Но Вы можете их разделить, они самостоятельные. Помещайте каждвую в begin ... end. - и все