Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
спроситьнадо
29.09.2021 03:55 •
Информатика
Дан массив целых чисел B(40). Составить программу для вычисления количества элементов массива, которые кратны 5 .
Ответ:
АлинкаГал
24.08.2020 22:59
PascalABC.NET
С ручным заполнением:
begin Print('Количество:', ReadArrInteger(40).Count(x->x mod 5 = 0) );end.
С рандомным заполнением:
beginvar b := ArrRandom(40,0,100); b.Println; Print('Количество:', b.Count(x->x mod 5 = 0) );end.
Пример работы:
0,0
(0 оценок)
Популярные вопросы: Информатика
katerinakatea2
26.02.2021 08:59
Определите соответствие: Блез Паскаль Чарльз Беббидж Абак Ада Лавлейс Табулятор Картонная карта с отверстиями Готфрид Лейбниц Склад, фабрика, контора Машина для переписи...
ihorrubalko
04.07.2022 00:25
Расположите величины в порядке убывания: 1024 биты, 1000байтов, 1 бит, 1 байт, 1 кбайт...
zemkaaa1
07.03.2022 01:22
Б M Н - . о Щ ъ . П C ... Проверочная работа на тему «Кодирование информации» Задание 1. Дана кодовая таблица азбуки Морзе А л.-• • Ц ч В Г д Е . P. Ы Ж••• - Б 3...
larkina2000
19.05.2020 04:20
Напишите программу на языке Python, которая получает с клавиатуры число до тех пор пока не будет введено число 0. В конце работы программы на экран выводится минимальное...
smolikarina
13.11.2022 09:28
Что современного в комедии» Недоросль»Д.И....
aygun256
13.05.2021 21:02
начертить отрезок ТР, длина которого равна 7см 8мм. Отметьте на нëм точку Е так, чтоб ТЕ= 2см 6мм. Какова длина отрезка ЕР?...
2xui2
18.07.2022 12:48
Что вы понимаете под понятием правовая неграмотность...
FGHJER
11.06.2020 00:31
Я загадал число. И увеличил его в 5 раз, и оно увеличилось на 24. Какое число я загадал....
reopla
30.11.2021 03:39
Чем знаменита пирамида Хеопса?...
aboboskayaovrain
12.12.2021 05:49
Какие жизненные обстоятельства повлияли на формирование характера П. Гринева?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
С ручным заполнением:
begin Print('Количество:', ReadArrInteger(40).Count(x->x mod 5 = 0) );end.С рандомным заполнением:
beginvar b := ArrRandom(40,0,100); b.Println; Print('Количество:', b.Count(x->x mod 5 = 0) );end.Пример работы: