Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Sashka1611
04.10.2022 17:58 •
Информатика
Вычислите произведение элементов массива значения которых больше 5, но меньше 10 на паскале
Показать ответ
Ответ:
Iilya9330
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 оценок)
Популярные вопросы: Информатика
zhenyakrestins
30.07.2021 05:34
Як виконується наведений фрагмент алгоритму (Мал. 3.46, г) в Scratch 2?...
oliver9999
17.08.2022 11:11
Подготовить сообщение по информатике! Передача информации между компьютерами.Беспроводная связь.Модем.Единицы измерения скорости передачи данных....
murrtinez
04.03.2021 02:43
Сколько латинских букв, соответствующих цифрам шестнадцатеричной системы, присутствует в шестнадцатеричной записи восьмеричного числа 67578 ? 8-это индекс...
guskovzahar2011
12.06.2021 10:54
В каких системах счисления 5q+5q=10q?...
Janna91
21.03.2021 10:46
Напишите наибольшее число x для которого ложно высказывание не первая цифра числа x четная или x = 40...
мамаеб228
04.01.2021 22:39
Прямоугольный параллелепипед с ребрами 11,22 и 33.Предикат: Vol(a,b,c,v):=Mult(a,b,z),Mult(z,c,v).За...
kotik04062007
04.01.2021 22:39
8 класс запустите программу...
zybi
28.03.2020 13:12
Программирование Зависимость задана функцией y(a,b), в которой одно из выражений y1 = (a+b)*(a-b), y2 = (a*b) является числителем, а другое- знаменателем. В знаменатель...
85Angel85
18.11.2022 19:50
Данные задачи на рисунке и нужно найти (Г И К) ИЛИ У Такой во если они не пересекаются, то будет ли это выражение равно нулю? Или же ответ - 350?...
tolikstrikashi
25.05.2020 06:56
Заполните массив случайными числами в интервале[0,100] и подсчитайте отдельно среднее значение всехэлементов, которые 50, и среднее значение всехэлементов, которые ≥50.Пример:Массив:3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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