Найдите в массиве максимальный элемент и замените его нулем
Найдите в массиве максимальный элемент и замените его нулем
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы