Информатика 8 класс, программирование
[email protected] в категроии Информатика, вопрос открыт 20.05.2017 в 18:44
Если произведение трёх чисел равно нулю, нулевые элементы заменить суммой этих трёх чисел
1 ответ
[email protected] , ответ добавлен 20.05.2017 в 19:08
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.
0
Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.