Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
MissEmilyaBlood
24.03.2020 08:11 •
Информатика
Заполните массив размерностью 15 случайными числами из промежутка [-350; 350] выведите его на экран в строку найдите произведение положительных элементов массива кратных 7
Показать ответ
Ответ:
Djdjjdjdjdjddjjx
04.08.2020 12:24
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-350,350); a.Println;
a.Where(t->(t>0) and (t mod 7=0)).DefaultIfEmpty.
Aggregate(1,(p,q)->p*q).Println
end.
Примеры
-28 132 -60 336 297 199 -350 6 -236 341 -40 329 177 -174 240
110544
48 -136 11 267 239 234 -224 333 -143 -78 319 -253 332 -59 -303
0
0,0
(0 оценок)
Популярные вопросы: Информатика
dasha34presnova
09.02.2021 06:14
Коллективные работы в сети доклад...
Александра102854321
02.08.2020 05:02
Составить блок схему и программу вот : исходные данные и константы c=1, b=3,4 вводить d-целое число a-действительное выражение для s s=b-c*a+d...
DigroTube
04.02.2020 21:52
Запишите логическое выражение для заданной схемы:...
amwarawka
13.06.2020 14:02
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход количество чисел...
romanklimenkov
06.08.2022 13:44
Выполнять крайне внимательно Расположите символьные величины по убыванию...
dongrigoriew20
05.12.2022 10:44
с информатикой 1.Напишите номера предложений (по возрастанию, без пробелов и разделителей), являющиеся высказываниями: 1. Как пройти в поликлинику? 2. Мама спросила: Когда...
2polina21
23.02.2020 07:35
Сканируется цветное изображение размером 22,86×22,86 дюйм. Разрешающая сканера — 1200×1200 dpi, глубина цвета — 8 бита. Какой информационный объём будет иметь полученный графический...
Gungame02
11.09.2021 12:16
Определи, какие числа в остатке могут получиться при делении на 5. Выбери числа: 1 6 7 9 5 3 2 4 8...
fiyyk
10.08.2020 07:13
по русскому языку,раскрыть скобки с НЕ Добрые люди! (Не)проходите мимо! Наши питомцы очень ждут вас! Многие из наших милых зверят оказались на улице по (не)лепой случайности....
perevuznik1
29.10.2020 10:10
1) При якій температурі 2 л оксигену будуть мати масу 1 г якщо тиск 101, 325 кПА...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-350,350); a.Println;
a.Where(t->(t>0) and (t mod 7=0)).DefaultIfEmpty.
Aggregate(1,(p,q)->p*q).Println
end.
Примеры
-28 132 -60 336 297 199 -350 6 -236 341 -40 329 177 -174 240
110544
48 -136 11 267 239 234 -224 333 -143 -78 319 -253 332 -59 -303
0