Написать программу:
Заменить нулём максимальные числа в массиве
Помогите плиз:)

//PascalABC.NET 3.2 сборка 1318var  max:integer;beginvar arr:=ReadArrInteger(readinteger());max:=arr.Max;arr.Replace(arr,max,0);arr.Print;end.Пример ввода:41 2 3 3Пример вывода:1 2 0 0