Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
lampusha
03.11.2020 07:57 •
Информатика
Вцелочисленном массиве из 10 эл. найти произведение четных чисел и вывести его. (+написать программу в паскале)
Ответ:
Reixerrr
08.10.2020 17:06
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-999,999); a.Println;
Writeln('П=',a.Where(t->t.IsEven).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
112 -439 -766 -476 -83 718 742 -303 -20 126
П=-54825504325079040
0,0
(0 оценок)
Популярные вопросы: Информатика
labzaekaterina
08.09.2021 08:32
Оператор ввода и вывода, нужно определение...
pamagiteplease
25.11.2022 14:56
Написать программу на c# написать программу, удаляющую из записи числа все чётные цифры....
Hedulik
06.08.2022 17:24
Қазақ тілі.6-сынып.Кәсіби сөздер.9-тапсырма.Шеңбердегі 3-тапсырманы орындаңдар.65-бет.Өтінемііін жауабы болса айтындаршы!...
anastasiyaryum1
06.08.2022 17:24
Сталица города Кызыл орда...
дяья928
02.01.2021 23:13
Сколько раз выполняется тело цикла for chyslo in range (0, 10, 3)...
Alise1sav
02.01.2021 23:13
Вам нужно купить 4000 долларов США. Один банк предлагает курс продажи 67,26 руб. за доллар, курс покупки – 63 руб. за доллар, комиссия 0%. Другой банк предлагает курс...
ира1031
20.09.2020 01:34
решить задачу по Маркетингу. Месячная реализация зубной пасты составила Q1 = 500 ед. при цене Ц1 = 2,50 грн. В ходе маркетинговых исследований влияния цены на динамику...
dolgenco123
20.09.2020 01:34
Знайди відношення чисел. 1) 15 до 12; 2) 20 до 35; 3) 0,2 до 0,8; 4) 1,8 до 0,8; 5) 1/8 до 1/2; 6) 6/7 до 3/14....
pro62
20.09.2020 01:34
НУЖНА Найдите длину листа бумаги формата A5. ответ дайте в миллиметрах и округлите до ближайшего целого числа, кратного 10. 2. Сколько листов формата А5 получится из...
Ramble2285
09.05.2023 16:56
Мәтінді тыңда. Мәтіндегі негізгі ақпаратты анықта. Түсінгеніңді баянда. Жоспар құр. Мәтіндегі синонимдерді тауып жаз.Прмогите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-999,999); a.Println;
Writeln('П=',a.Where(t->t.IsEven).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
112 -439 -766 -476 -83 718 742 -303 -20 126
П=-54825504325079040