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

Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('П=',ReadSeqReal('Вводите:',ReadInteger('n=')).
      Where(k->k>10).Aggregate(1.0,(p,q)->p*q))
end.

Пример
n= 10
Вводите: -3 5.2 -12 1.79 8 32.14 -1.40 1.1 5.2 4.52
П=32.14