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

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

Question

Информатика

Маюша

28 июня, 16:57

Информатика 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 класс, программирование

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