Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
serezhenkoui
13.07.2020 10:45 •
Информатика
Составьте программу заполнения массива из 100 целых чисел случайными числами от 1 до 20 и найти сумму четных чисел
Показать ответ
Ответ:
mmthe124
25.08.2020 17:19
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(100,1,20); a.Println;
Writeln('Сумма четных чисел равна ',a.Where(x->x.IsEven).Sum)
end.
Тестовое решение
7 9 17 2 1 18 8 9 9 3 14 13 10 18 20 5 5 9 5 18 20 12 6 19 2 3 20 17 9 15 3 2 18 17 16 8 5 11 7 15 19 11 17 15 18 18 12 17 12 11 11 11 15 9 20 16 3 19 1 18 18 12 1 14 20 12 16 14 2 13 1 15 3 11 19 9 16 12 2 4 12 3 5 19 4 12 7 10 17 1 5 7 11 9 17 7 11 3 16 6
Сумма четных чисел равна 528
0,0
(0 оценок)
Популярные вопросы: Информатика
polycov200412
23.12.2020 13:17
На жестком диске используется размещения файлов в виде связного списка кластеров. ссылка на кластер занимает 4 байта. запись каталога вместе с атрибутами файла занимает 32 байта....
Teddy1bear
31.03.2023 18:16
Решить : с клавиатуры вводятся 10 чисел, определите количество четных и нечётных чисел. ...
lidatutaeva
31.03.2023 18:16
1)-вывести на экран значение функций y=sin(4x^2) на промежутке от m до n.2)-вывести на экран значения функций y=x^2+8x-6 на промежутке от m до n значения m и n вводятся с клавиатуры....
Птичка04
07.05.2022 08:28
Система гиперсвязей между мультимедиа документами 10 букв...
kristina260303
07.05.2022 08:28
Заполните таблицу, работая с клавиатурой в режиме ввода и латинских букв. комбинация клавиш: shift+1, 2, 3, 4, 5, 6, 7, 8, 9, 0. режим ввода латинских и букв....
bondiserj
06.09.2021 03:43
Задание 3. Вставьте пропущенные слова - это процесс построения моделей для исследования и изучения объектов, процессов и явления. используются для отображения зависимости значений...
хорошист100000000000
02.05.2020 04:37
Вы директор завода который входит в огромную корпорацию с центром в г.москве , вам нужна постоянная связь для передачи показателей производительности вашего завода в эту корпорацию....
agarkovatanech
29.10.2022 11:20
Які операції можна виконувати над об єктами на слайді? не могу понять (можно в вкратце?)...
nastyap20032
06.01.2020 07:52
Кому нибудь задавали проект по инфе собиратель фруктов? скиньте...
Kirka3118
12.07.2020 08:20
1) Каким правилам надо следовать при создании корректных имен переменных?а) нельзя использовать русские буквыб) имя переменной не может начинаться с цифрыв) нельзя использовать...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(100,1,20); a.Println;
Writeln('Сумма четных чисел равна ',a.Where(x->x.IsEven).Sum)
end.
Тестовое решение
7 9 17 2 1 18 8 9 9 3 14 13 10 18 20 5 5 9 5 18 20 12 6 19 2 3 20 17 9 15 3 2 18 17 16 8 5 11 7 15 19 11 17 15 18 18 12 17 12 11 11 11 15 9 20 16 3 19 1 18 18 12 1 14 20 12 16 14 2 13 1 15 3 11 19 9 16 12 2 4 12 3 5 19 4 12 7 10 17 1 5 7 11 9 17 7 11 3 16 6
Сумма четных чисел равна 528