Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Krosarik
27.05.2022 00:03 •
Информатика
Дан массив целых чисел B(40). Составить программу для вычисления количества элементов массива, которые кратны 5 .
Показать ответ
Ответ:
школота90
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 оценок)
Популярные вопросы: Информатика
Nastyha1741
24.05.2021 09:53
Вопрос Опреде лите, что будет напечатано в результате выполнения программы: Program mas6; Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1]:= 1; Dat[2]:=...
maly2111q
06.01.2022 15:49
При встроенных функций посчитать необходимые данные в таблице. это очень Нужно отправить в течении двух часов! Можете скинуть готовый файлик. Буду признателен за решение...
р0000
08.09.2022 00:46
В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 8, 4, 3, 0, 7, 2, 1, 5, 9, 6 соответственно, т.е. A[0]=8,...
SvinkaPeppa777
14.01.2020 20:44
Отримати на комп ютері зі слова інформатика нові слова. Наприклад форма , мама , формат , рама .Вхідні дані:const d= інформатика Надо составить программу Блок схема:...
mandarin50
23.08.2022 10:15
Что видите в этой рисунке, опишите * Мой ответ...
2katena
12.06.2021 05:40
Программа обрабатывает одномерный целочисленный массив Dat: i 1 2 3 4 5 6 7 8 9 10 Dat[i] 70 80 90 100 80 40 40 70 80 90 Определите, какие числа будут выведены в результате...
КристинаШпиц
06.07.2021 20:28
сделать программу в паскале (по информатике).Задание:Увеличить все элементы линейной таблицы М(200) в 3 раза....
vlados22354
24.09.2022 07:43
С++ Дано 4 числа: a,b,c,d. Найдите разность между суммой всех чисел в интервале [a;b] и суммой всех чисел в интервале [c;d].Формат входных данныхВ единственной строке...
nurbibisaidova3
20.12.2022 11:18
Укажите возможные ввода данных в таблицу базы данных.Ввод данных в таблицу в режиме Конструктора .Ввод через форму.Ввод через отчёт.Ввод в таблицу в режиме Ввод и редактирование...
antarxanoff2001
31.08.2020 10:22
Составьте таблицу истинности...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
С ручным заполнением:
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.Пример работы: