Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ternya1sd
06.05.2021 03:25 •
Информатика
Составить программу : дан массив из n элементов, найди сумму элементов , кратных 3 ..
Ответ:
dance7
01.09.2020 18:14
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма элементов, кратных 3, равна ',a.Where(x->x mod 3 =0).Sum)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Кристина15551
15.12.2022 02:34
. а) кто такой норберт винер и какова его роль в исследовании информационных процессов? б) кто такой клод шеннон и чем он знаменит? в) кем и когда был введён термин «гипертекст»?...
Znoke99
15.12.2022 02:34
Определить 3-ю цифру в записи 6-значного натурального числа. для нахождения 3 цифры надо отрезать от числа последние 3 и первые 2 цифры составить программу ,применяя операции...
drakonchik5005
20.02.2020 15:47
Что такое информационный процесс? Опишите, как происходит информационный процесс?Область применения автоматизированных систем управления?Что выполняет система числового программного...
dilpiztalipova
03.08.2022 23:47
Подсчитать сумму элементов массива, состоящего из элементов, заполнение массива должно быть при запуске путем ввода чисел с клавиатуры....
jokertop666
15.10.2020 18:05
Практическая работа «Кодирование графической информации» Теория BMP (англ. Bitmap Picture) - это стандартный, не сжатый битовый графический формат, используемый в Windows....
BoGDAn4iK2015
17.02.2022 03:47
Напишите, , программу на с++ входные данные вводятся с клавиатуры по запросу. датчики псевдослучайных чисел использовать запрещается. выходные данные должны выводиться на...
barbariskaulyaЮлия
17.02.2022 03:47
Умоляю решается судьба атестата напишите решение , решите : арифметический цикл for 1. остров манхэттен (район нью-йорка) был выкуплен индейцев переселенцами из в 1626 г....
kolpak3
30.05.2022 14:59
Дана программа паскаль, я составил блок схему, но препод сказал что ее необходимо сократить через модификацию или как то так, program proizv; var p: real; m: integer; begin...
kalinkamalinka369
20.02.2021 10:27
Int қандай типке жатады? ...
Marinet1806
16.06.2022 03:51
РЕШИТЬ ЗАДАЧУ ПО ИНФОРМАТИКЕ 7 класс ( ) Даны полные имена файлов, хранящихся на диске D:. D:\МЛЕКОПИТАЮЩИЕ\ЛАСТОНОГИЕ\тюлени.txt D:\МЛЕКОПИТАЮЩИЕ\ЛАСТОНОГИЕ\моржи.doc D:\МЛЕКОПИТАЮЩИЕ\ХИЩНИКИ\МЕДВЕДИ\панды.txt...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма элементов, кратных 3, равна ',a.Where(x->x mod 3 =0).Sum)
end.