Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
22222ssssssss
14.06.2022 15:59 •
Информатика
Вычислите произведение элементов массива значения которых больше 5, но меньше 10 на паскале
Ответ:
slivinskaja83
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 оценок)
Популярные вопросы: Информатика
vaierchik
31.05.2023 07:08
разобраться с задачи: 1 а) Мощность алфавита племени Тик-ток равна 64 символа. Найдите объем сообщения, (в Кбайтах), состоящего из 2048 символов. 2. Чему равен информационный вес...
linapetrenko
20.07.2021 03:46
PYTHON Вам нужно запросить у пользователя возраст. Добавить условие при котором возраст будет выводиться с правильным словом: год , года или лет . Т.е. 29 лет или 4 года ....
vualada
14.01.2023 11:16
Переведите целые числа из десятичной системы счисления в двоичную 712, 57,473,1278...
снежана1281
23.09.2020 06:03
Введите битовую строку и дополните её последним битом, который должен быть равен 0, если в исходной строке чётное число единиц, и равен 1, если нечётное (в получившейся строке должно...
BEM007
19.11.2020 04:56
Имеется неограниченно много бусин пяти разных цветов. сколько разных цепочек из трёх бусин можно из них составить?...
natab02
10.08.2020 23:53
Program o_0; var i: integer; a: array [1..10] of integer; begin for i: =1 to 10 do a [i]: =random(11); for i: =1 to 10 write (a[i], ); end. в чём ошибка?...
Nobd
12.02.2020 10:08
После обучения архимед и эратосфен переписывались еще много лет. определить, сколько денег нужно заплатить за отправку бандероли в древней греции, если известно, что за бандероль...
lizza3429
29.09.2020 16:40
Составте на тему строковые функции. . ....
akzhanovarnai2
08.12.2020 22:06
На уроке информатики учитель предложил Васе сыграть в следующую игру. На доске записаны по порядку все целые числа от 1 до N. За один ход можно стереть либо все числа, стоящие на...
dianabalaganska
16.05.2020 11:58
Дать характеристику устройствам памяти...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
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