Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
hakimjon232
23.08.2021 20:14 •
Информатика
Дан массив целых чисел состоящий из 10 элементов, подсчитать количество элементов кратных 5
Показать ответ
Ответ:
Zhuldyz2005
25.08.2020 19:00
Var
n,i:integer;
mas: array [1..10] of integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
begin
if mas[i] mod 5 = 0 then
n:=n+1;
end;
writeln('Количество чисел кратных 5: ',n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Мессалина1
10.09.2020 18:33
:) начав тренировки, спортсмен в первый день пробежал 10 км. каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. какой суммарный путь пробежит спортсмен...
dima012002
18.03.2023 22:21
Какие из перечисленных процессов являются информационными? 1) производство бензина из нефти 2) измерение температуры воздуха 3) перевод единиц длины из метров в сантиметры...
Ксюшечка59874374
02.08.2020 04:49
(учебник босовой) стр. 73 №5 составьте предложение по схеме: сказуемое определение подлежащее...
1greg
11.06.2021 19:47
Установіть сюжетну послідовність подій в оповіданні Р.Бредбері «Усмішка» А спогади Тома про свята останніх років Б споглядання Томом зібганого клаптика полотна В звуки...
katmoxie
08.05.2020 15:29
При регистрации в информационную систему пользователю необходимо придумать пароль. Длина пароля составляет 13 символов. Каждый символ пароля кодируется минимальным...
Linka00128
17.02.2021 09:05
Вадим решил сходить в гости к другу, который живёт в новом доме. в этом доме поставили экспериментальный лифт, в котором всего две кнопки: «вверх на восемь» и «вниз...
Lena2402bux
25.02.2022 02:46
Давным-давно на неизведанный остров высадились белки – колонизаторы. на берег перед кораблем высыпали местные сурки – аборигены, воздать хвалу небесным, ранее неизведанным...
matuxh
26.06.2020 02:17
Напиши сумму двух выражений и у его -4.2-k и 27.9+k...
Galina1960
20.05.2023 05:25
Розв яжіть будь ласка: 9x4+23x2-12=0 Тема: РОЗВ ЯЗУВАННЯ РІВНЯННЬ,ЯКІ ЗВОДЯТЬСЯ ДО КІАДРАТНИХ....
Медина00
13.08.2020 02:28
О пользе утренней зарядки мы слышали ещё в раннем детстве. Но много ли вы знаете людей, все-таки сумевших воспитать в себе эту привычку? При словах «утренняя зарядка»...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,i:integer;
mas: array [1..10] of integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
begin
if mas[i] mod 5 = 0 then
n:=n+1;
end;
writeln('Количество чисел кратных 5: ',n);
end.