Дан массив из 10 чисел. найти произведение всех нулевых элементов этого массива.

RomanReigns2000 RomanReigns2000    3   01.10.2019 10:01    1

Ответы
danul1414 danul1414  27.08.2020 10:48
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 00
Дан массив из 10 чисел. найти произведение всех нулевых элементов этого массива.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика