Составить программу удаления в массиве C(n) максимального элемента.

Question

Составить программу удаления в массиве C(n) максимального элемента.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var c:=ArrRandom(ReadInteger('n='),-50,50); c.Println;
  var imax:=c.IndexMax;
  c:=c?[:imax]+c?[imax+1:]; c.Println
end.

Пример
n= 15
-5 -23 44 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
-5 -23 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33