Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
NazSha
15.05.2023 10:58 •
Информатика
Вычислите произведение элементов массива значения которых больше 5, но меньше 10 на паскале
Показать ответ
Ответ:
grigorisinnatal
07.10.2020 21:11
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,0,15);a.Println;
var answer:= a.Where(t -> (t > 5) and (t < 10)).Aggregate(biginteger(1), (x,y) -> x*y);
Writeln(answer);
Пример:
4 0 15 8 10 13 9 13 4 8 11 5 7 1 4
4032
0,0
(0 оценок)
Популярные вопросы: Информатика
WinnerGDWot027
31.10.2020 21:12
Сколько работает примерно серверов в мире 1) 100 000 2) 10 000 000 3) 1 000 000 000 4) 100 000 000 000...
НеШкольник228228
31.10.2020 21:12
Сколько цветов можно максимально использовать для хранения изображения размером 350х200 пикселей, если объем страницы видеопамяти - 65 кбайт?...
Anjelika222
31.10.2020 21:12
Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100...
Ониг
27.10.2022 12:20
1. растровый графический файл содержит черно-белое изображение с 16 градациями серого цвета размером 10х10 точек. каков информационный объем этого файла? 2. точка графического...
Зиколя
27.10.2022 12:20
Как можно описать на паскале массив, в котором будут храниться значения численности населения москвы к концу каждого года xx века?...
иоргерлпщпл
27.10.2022 12:20
Сколько секунд потребуется модему, сообщения со скоростью 19200 бит/с, чтобы передать цветное растровое изображение размером 1280 на 800 пикселей, при условии, что цвет каждого...
yana603
05.02.2021 22:08
Написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными выдаёт рекомендации о необходимости поправиться или похудеть.по формуле рост минус...
ViktorrriaQueen
05.02.2021 22:08
Написать программу, определяющую положение точки m(x; y) относительно прямой y=ax+b...
Fulfevgen
05.02.2021 22:08
Вывести на экран сумму кубов чисел от 2 до 14...
aigul666
05.04.2022 07:17
Сколько секунд потребуется обычному модему, сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640х480 пикселей, при условии, что цвет...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,0,15);a.Println;
var answer:= a.Where(t -> (t > 5) and (t < 10)).Aggregate(biginteger(1), (x,y) -> x*y);
Writeln(answer);
Пример:
4 0 15 8 10 13 9 13 4 8 11 5 7 1 4
4032