Предмет: Информатика,
автор: vladko15
Информатика 8 класс, программирование
Если произведение трёх чисел равно нулю, нулевые элементы заменить суммой этих трёх чисел
Ответы
Автор ответа:
0
begin
var a:=ReadArrInteger('Введите 3 чисел:',3);
var i:=a.Aggregate(1,(i,j)->i*j);
var s:=a.Aggregate(0,(i,j)->i+j);
if i=0 then a.Replace(0,s);
a.Println;
end.
var a:=ReadArrInteger('Введите 3 чисел:',3);
var i:=a.Aggregate(1,(i,j)->i*j);
var s:=a.Aggregate(0,(i,j)->i+j);
if i=0 then a.Replace(0,s);
a.Println;
end.
Интересные вопросы
Предмет: Другие предметы,
автор: xfgbdf
Предмет: Биология,
автор: iceksyusha
Предмет: Українська мова,
автор: karapuz8276
Предмет: География,
автор: gxgchc
Предмет: Литература,
автор: Аноним