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

Question

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

Answer 1

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