Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
alinkamalina04
12.03.2022 17:31 •
Информатика
Водномерном массиве, состоящем из n действительных элементов, вычислить: 1) произведение положительных элементов массива
Показать ответ
Ответ:
student87432467
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
0,0
(0 оценок)
Популярные вопросы: Информатика
Радость10000
16.07.2021 15:18
Дана матрица размерностью n×m. элементы, индексы которых четные, возвести в квадрат. измененную матрицу вывести на экран. (pascal)...
Andreyvko1
14.07.2020 00:44
По информатике: вывести на екран натуральные числа от 40 до 10...
77darihi
24.12.2021 22:28
Соператора readln,writlen,random составить программу которая будет сравнивать число вводимое с клавиатуры со случайным числом в диапазоне от 0 до 100 результат выводится...
filanovich1984
20.05.2021 06:32
Нужно объяснить решение программы program qq; var b,c,f: integer ; begin for var a: =100 to 999 do begin b: = a mod 10; c: = (a mod 100) div 10; f: =a div 100; if a=(c*c*c)+...
magmadi1
21.06.2021 09:53
Сколько цветов можно закодировать, если каждый цвет кодировать 9 битами...
olya801
03.11.2020 10:23
Три свидетеля дорожного происшествия сообщили сведения о скрывшемся нарушителе. Эдгар утверждает, что тот был на белом «Renault», Вадим сказал, что нарушитель уехал...
dan4ikchannel
21.08.2020 18:02
Вышли на рыбалку. Время обеда! Поймали 4 рыбы. Знаем вес каждой из них. Если рыба весит меньше 4 кг, то это какая-то несъедобная мелочь. Нам на острове еще долго жить,...
Zomka1
14.04.2021 06:33
Информатика 10 классНужно написать программу паскаль и блок-схему Перемещение при равноускоренном прямолейном движении Формула: S= v0t + at^2 : 2...
defordd
18.12.2021 18:09
1 ден 10ға дейінгі сан енгізіңіз...
НастяЛайк111
26.07.2020 17:48
Выполните вычитания чисел путем сложения их обратных кодов в формате 1 байт. Укажите, в каких случаях имеет место переполнение разрядной сетки. а) 3 и -7 б) 42 и -37...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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