Question

!!!прошу пожалуйста!!!​

Answer 1

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

begin

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

 a.Println;

 a.Where(p -> p < 0)

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

     .Print

end.