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

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

Question

Информатика

Алиса

31 марта, 19:58

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

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

+4

Ответы (1)

Знаешь ответ?

Ардалион · 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.

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

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

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