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

barmin2001g barmin2001g    2   24.04.2020 11:23    0

Ответы
MaryanaReynt1 MaryanaReynt1  28.08.2020 12:23

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


Нужна с задачами с сортировкой массива
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика