Question

2. Найти произведение элементов массива, принадлежащих промежутку от 50 до
200.

Answer 1

Ответ:

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

begin

 var A := ArrRandom(Random(100), 50, 200);

 A.Println;

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

end.