информатика
Написать программу:Заменить нулём максимальные числа в массивеПомогите плиз:)
Оставить ответОтвет №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
Знаете ответ?