Ответы на вопрос:
// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin var a: =seqrandom(readinteger('n=',20) .select(i-> real(; a.println; var b: =a[0]*a.skip(1).where(x-> x> 0).aggregate(1.0,(p,x)-> p*x); writeln(b); end. тестовое решение: n= 15 14 17 5 -1 9 -18 2 3 -20 5 -10 0 4 -1 -8 1285200 пояснения по каждому оператору 1. запрашивается количество элементов в последовательности n, генерируется последовательность из n целых чисел в диапазоне от -20 до 20, затем элементы последовательности преобразуются в вещественное представление и образуют динамический массив а. 2. элементы массива а выводятся на экран. 3. первый элемент массива умножается на произведение остальных положительных элементов и результат присваивается переменной b. 4. значение переменной b выводится на экран. в целях небольшого предполагается, что n> 1 и что среди элементов массива, за исключением первого, имеется хотя бы один положительный элемент. это связано с тем, что в отсутствует описание действий в случае, если вышеописанное предположение окажется неверным. переход к вещественному представлению чисел связан с обходом переполнения разрядной сетки при целочисленном умножении для больших значений n.
Популярно: Информатика
-
merifai06.05.2021 20:45
-
moderator1426.03.2023 23:22
-
асаса330.03.2023 09:58
-
Nastya400209.03.2021 15:09
-
urubkovaanna22.08.2021 13:08
-
Tigor11107.03.2020 02:26
-
YankaManky16.02.2022 20:48
-
ohwer27.05.2021 18:00
-
aliha00108.06.2020 19:40
-
darkishlord19.02.2020 21:46