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

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

Question

Информатика

Тарасия

25 июня, 06:54

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

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

+1

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

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