tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Водномерном массиве, состоящем
Водномерном массиве, состоящем из n действительных элементов, вычислить: 1) произведение положительных элементов массива
рол145
3 12.09.2019 04:00
0
Ответы
feliz3600
10.09.2020 06:41
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
Writeln('П = ',a.Where(t->t>0).Aggregate(1.0,(x,y)->x*y))
end.
Пример
n= 15
-7.4 -0.9 -2.6 6.9 2.7 -7 7.8 3.6 7.6 -5.6 -1.4 8.4 -6.1 6.8 -3.1
П = 227097.1842048
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
алоал
05.06.2020 15:13
Задан алгоритм решения задачи. Начертите блок - схему в соответствии с алгоритмом. Какой вид цикла используется в данном алгоритме? нач S: = 0 нц для i := 1 до 10 ...
AnnaKnuazev
05.06.2020 15:13
с информатикой в программе Access Самостоятельная работа 1...
karina27042005
06.06.2020 14:56
дам, в профиле ещё 2 этих же задач. Жду ответа на всё, дам макс....
margo1236
18.12.2021 19:52
VBA. EXEL В учебном заведении задается начало учебного дня, продолжительность пары или урока , продолжительность обычного и большого перерыва и их место в расписании, количество...
8алина82
18.12.2021 19:33
УМОЛЯЮ РЕШИТЬ ТЕСТ ПО ИНФОРМАТИКЕ...
gogolevap1
16.11.2020 06:19
Карина решила создать электронную таблицу для вычисления стоимости обеда в школе. В таблице будут содержаться такие данные: название блюда, порция в граммах, цена за одну порцию....
Элис6666666666
16.11.2020 06:08
У нас есть чёрно-белое изображение, где количество пикселей по горизонтали 25 и по вертикали 25, т.е. размер изображение 25×25. Сколько битов будет размер этого изображения?...
asca82
20.11.2020 10:18
Выбери из списка количество строк, которые появятся после вставки таблицы. 10856(информатика ...
ByArts1000
20.11.2020 10:18
От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки Морзе: 0 1 0 1 1 0 1 1 0 0 1 0 0 1 1 0При передаче радиограммы было потеряно...
Анон5сен
20.11.2020 10:18
ОЧЕНЬ Чему равно наименьшее основание позиционной системы счисления X, при котором 411x = 109y? ответ записать в виде целого числа...
Популярные вопросы
На автостоянке стояли грузовые и легковые машины. число легковых в 1,2 раза...
2
Clare has just arrived at san francisco airport where she suddenly saw her...
3
Составьте небольшое поучение младшим брату, сестре или другу, использовав...
2
Соч доброе дело лучше и дороже богатства_...
2
Найдите значение числового выражения 2,8-3,1-4,9+4,2...
2
Решите уравнения а) 2х+3=0 б) 6х-7=15+2х...
3
38600мм куб в этом обьеми сколько миллилитров есть....
3
Вкомнате 10 стульев. надо разместить поровну по 4 стенам...
3
12 550 кг 100 853 кг 70 000 кг вырази в ц и кг 145 200 кг 696 000 кг 345 509...
1
Сочинение на тему my perfect ! и как нужно ходить в ! !...
3
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
Writeln('П = ',a.Where(t->t>0).Aggregate(1.0,(x,y)->x*y))
end.
Пример
n= 15
-7.4 -0.9 -2.6 6.9 2.7 -7 7.8 3.6 7.6 -5.6 -1.4 8.4 -6.1 6.8 -3.1
П = 227097.1842048