Информатика 8 класс, программирование Если произведение трёх чисел равно нулю, нулевые...

Question

Информатика 8 класс, программирование

Если произведение трёх чисел равно нулю, нулевые элементы заменить суммой этих трёх чисел

Answer 1

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.