Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
7262626
12.12.2020 14:27 •
Информатика
Составить программу на языке паскаль с random дано a[i]∈[-13,8] найти произведение нечетных отрицательных чисел n=5
Ответ:
loveinyourhard
08.10.2020 13:07
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(5,-13,8).Println.Where(t->(t<0) and t.IsOdd).ToArray;
if a.Count>0 then a.Aggregate(1,(i,j)->i*j).Println
else Writeln(0)
end.
Пример
-2 -6 -6 -7 -13
91
0,0
(0 оценок)
Популярные вопросы: Информатика
89269705621
17.04.2022 06:23
Задача по программированию на C++...
FeGLoCk
06.08.2020 07:07
Заполнить массив из 15 элементов числами от -10 до 10 , вывести в строчку и повторно вывсети в строчку заполнив элементы массива не больших 3 их кубами...
BabyTaya
08.02.2023 00:48
Найти сумму трёх целых чисел. использовать цикл с предусловием !...
YAN222
08.02.2023 00:48
Вфайле запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета. сколько страниц будет найдено по запросу ландыши& васильки&...
Kamarir
08.02.2023 00:48
Запишите на естественном языке алгоритм, выполняющий поиск количества простых чисел в заданном целочисленном массиве из 50 элементов. pascal...
Artyom20076
16.11.2020 12:02
Файле запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета. сколько страниц будет найдено по запросу сомики | меченосцы...
mashechca
16.11.2020 12:02
Чем отличается графическая модель от реального объекта...
esina3010
28.06.2022 17:51
Правильно или нет, подскажите как program ex; var a,b,c: integer; begin readln (a); b: =a mod 10; c: =a div 100; a: =b+c; writeln (a); end....
Yasenevo1036
30.01.2020 17:04
Составить программу, которая по порядковому номеру дня недели выводит соответствующую фразу- суббота , воскресенье или рабочий день...
рооллбббб
30.01.2020 17:04
Рассчитайте объём видеопамяти,необходимой для хранения графического изображения,занимающего весь экран монитора с разрешением1280×1024и палитрой65 536 цветов....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(5,-13,8).Println.Where(t->(t<0) and t.IsOdd).ToArray;
if a.Count>0 then a.Aggregate(1,(i,j)->i*j).Println
else Writeln(0)
end.
Пример
-2 -6 -6 -7 -13
91