Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vichkapetrenko
25.04.2022 12:27 •
Информатика
Решить в одномерном массиве x[1..6] вывести на экран произведение элементов, модуль которых < 3
Показать ответ
Ответ:
d1m4Y
06.10.2020 22:38
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrRandom(6,-4,4); x.Println;
Writeln(x.Where(x->Abs(x)<3).Aggregate(1,(x,y)->x*y))
end.
Пример
-2 -1 2 1 -4 2
8
0,0
(0 оценок)
Популярные вопросы: Информатика
angelina436
16.09.2020 13:56
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 9. программа получает на вход количество чисел в последовательности,...
Iryna452
16.09.2020 13:56
1.доступ к файлу kassa.xls, находящемуся на сервере magazin.com, осуществляется по протоколу http. фрагменты адреса файла закодированы буквами от а до ж. запишите последовательность...
darova1205
16.09.2020 13:56
2. разработать программу, которая запрашивает ввод целого числа в переменную z, определяет и выводит на экран сообщение, какое это число – положительное, отрицательное или равное...
Artem1143
13.12.2022 21:56
3. напишите программу. известны данные о расходе электро- энергии n предприятиями отрасли за год. определите сред- ний расход электроэнергии по отрасли. для n 10 запишите исходные...
kristina25l
31.10.2021 10:09
Кто может, в компьютерной технике для кодировки символов используются кодировочные таблицы unicode и ascii. (i) автоматическое устройство осуществило перекодировку информационного...
liza1367
04.11.2020 18:58
Написать программу на языке паскаля 1)дано натуральное число. определить является ли оно чётным 2)дано натуральное число. определить оканчивается ли оно цифрой 7....
120954943921
04.11.2020 18:58
Зашифруй скороговорку около кола _колокола и на колах _колокола...
DarkDanilka
14.11.2022 06:59
Чтобы получить персональные рекомендации, покупатель должен войти в личный кабинет. Пользователь ivanova. ekaterina заявила об ошибке входа. Он вводит свой пароль sweetstore111,...
123умник1
28.03.2020 15:56
Кондитерская «Сладкие истории» хочет настроить рекомендации товаров по акции. Акции предлагаются при выполнении двух условий: - покупатель хочет купить пирожные; - покупатель...
aaysu228
02.07.2021 17:24
Задание 2: написать программу Кондитерская «Сладкие истории» хочет настроить рекомендации товаров по акции. Акции предлагаются при выполнении двух условий: - покупатель хочет...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrRandom(6,-4,4); x.Println;
Writeln(x.Where(x->Abs(x)<3).Aggregate(1,(x,y)->x*y))
end.
Пример
-2 -1 2 1 -4 2
8