Question

Дан массив а(40). Найдите произведение ненулевых элементов,расположенных до максимального элемента

Answer 1

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

begin

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

 a.Println;

 var i := a.IndexMax;

 a?[:i]

     .Where(p -> p <> 0)

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

     .Print

end.