Составить программу удаления в массиве c(n) максимального - вопрос №9117008 от диля1234567асем 30.01.2020 02:51

Question

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

диля1234567асем · Answer

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