Question

Написать программу. Дан массив целых чисел состоящий из 10 ячеек. Найти произведение чисел больше 15 и вывести на экран.

Answer 1

PascalABC.NET:

begin
  var a:=ArrRandom(10,1,30).Println;
  Writeln('P=',a.Where(x->x>15).Aggregate(1.0,(p,x)->p*x))
end.

Пример:
3 10 23 22 4 7 30 24 21 8
P=7650720