Дан массиве, состоящий из 20 целочисленных элементов. Найти произведение положительных элементов массива.

LadySmail LadySmail    3   14.05.2020 21:50    0

Ответы
ЯTV ЯTV  24.08.2020 16:57

// PascalABC.NET 3.6.3

begin

 var a := ArrRandom(20, -99, 99);

 a.Println.Where(p -> p > 0).Product(p -> BigInteger(p)).Print

end.


Дан массиве, состоящий из 20 целочисленных элементов. Найти произведение положительных элементов мас
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика