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

Question

Найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива –10. Заполнение массива осуществить случайными числами от 50 до 100.

Answer 1

Begin
    var n := ReadlnReal('n =');
    var arr := ArrRandomReal(10, 50, 100).Println;
    arr.Where(t -> t < n).Aggregate(1.0, (p,x) -> p * x).Println;
end.