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

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

Задать свой вопрос
1 ответ
Begin
    var n := ReadlnReal('n =');
    var arr := ArrRandomReal(10, 50, 100).Println;
    arr.Where(t -gt; t lt; n).Aggregate(1.0, (p,x) -gt; p * x).Println;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт