Дан массив из 10 чисел. Найти произведение всех нулевых элементов этого массива.
Ответы на вопрос
Ответил angryfukse
0
____________________
Приложения:
Ответил Аноним
0
Как насчет комментария автора вопроса "это на паскаль делать надо", который тут появился задолго до того, как Вы ответ начали писать?
Ответил angryfukse
0
не видел коммента с мобильной версии, домой приеду, перепишу
Ответил Аноним
0
Не даст. Два часа на исправление.
Ответил angryfukse
0
Const m=100; var arr:array[1..m] of real; size:integer; opNull:real; i:integer; begin readln(size); for i:=1 to size do read (arr[i]); opNull:=1; for i:=1 to size do if (arr[i]=0) then opNull:=opNull*arr[i]; writeln(opNull); end.
Ответил Аноним
0
PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(10, -5, 5);
a.Println;
a.Where(t -> t = 0).Aggregate(1, (p, q)-> p * q).Println
end.
-4 -4 -2 -5 -2 0 -5 -2 -3 0
0
Приложения:
Новые вопросы