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.