Найдите в массиве максимальный элемент и замените - вопрос №5485330 от ONO2017 23.03.2020 20:29

Question

Информатика: Найдите в массиве максимальный элемент и замените его нулем

ONO2017 · Answer

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
a[a.IndexMax]:=0; a.Println
end.

Тестовое решение:
n= 15
77 61 72 65 9 32 17 46 9 18 63 13 80 20 49
77 61 72 65 9 32 17 46 9 18 63 13 0 20 49