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

Question

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

Comments

а какая размерность массива?

Answer 1

//PascalABC.NET 3.2 сборка 1318

var
  max:integer;
begin
var arr:=ReadArrInteger(readinteger());
max:=arr.Max;
arr.Replace(arr,max,0);
arr.Print;
end.

Пример ввода:
4
1 2 3 3
Пример вывода:
1 2 0 0