Question

дан целочисленный массив размером 20 элементов. найти произведение чисел больше 7. ​

Answer 1

===== PascalABC.NET =====

begin

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

 a.Println;

 a.Where(p -> p > 7)

     .Aggregate(BigInteger.One, (p, q) -> p * q)

     .Print

end.