Осип
6 год назад
Написать программу:
Заменить нулём максимальные числа в массиве
Помогите плиз:)
ОТВЕТЫ
Максимилианович
Aug 7, 2019
//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
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
114
Смежные вопросы:
