Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Sidor209
10.05.2020 13:35 •
Информатика
Дан числовой массив а, состоящий из n натуральных чисел. определите количество элементов массива, которые при делении на 7 остаток 1, 2 или 5.
Показать ответ
Ответ:
Liana03102000
02.10.2020 22:11
Const
N = 7;
Var
A:array[1..N] of integer;
i,j:integer;
Begin
j:=0;
WriteLn('Введи массив A(N)');
For i:= 1 to N do
Begin
Read(A[i]);
if (A[i] mod 7 =1)or(A[i] mod 7 =2)or(A[i] mod 7 =5) then j:=j+1
End;
WriteLn(j)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Альмира2007
18.08.2020 07:28
Дано целое двузначное положительное число n . составьте программу, которая определяет, входят ли в него цифры 2 и 5...
Августина3008
14.04.2023 07:18
1. Кто поднял знамя МОК и Китайский флаг? 2. Как называется национальный стадион в Пекине, где состоялась церемония открытия игр? 3. Какая команда вышла на парад первая? 4. Кто из...
ArT003
31.01.2020 18:49
Найдите сумму первых восьми членов арифметической прогрессии, если хп=-7п+5...
Chopykoe
04.06.2021 03:36
найдите остаток от деления на 9 значения выражения: 987654 умножить на 876543 + 765432...
asus10memopadp06j6e
12.05.2023 02:07
Чему равна величина магнитной индукции в вакууме, если в среде с магнитной проницаемостью μ= 100 это же поле имеет магнитную индукцию 10-2 Тл....
shayukalena
23.06.2020 19:11
Как вы понимаете слова Тыбурция :Может быть это и хорошо что твоя дорога пролегла через нашу...
vladgrigav
08.12.2022 04:08
Определи скалярное произведение векторов DC*ADBA*BC...
ilay23143p0bp8a
18.07.2021 12:20
Два крани ,якщо їх відкрити одночасно,можуть наповнити басейн за 2 год.За скільки годин можна наповнити басейн через кожний кран окремо,якщо через один з них третина басейну наповнюється...
Tunior
25.08.2022 07:47
Прочитай текст и вставь вместо каждого пропуска подходящее слово, выбрав его из выпадающего списка. Два слова в списке лишние Theme parks come from traditional which were organized...
artem0941
12.04.2020 12:03
вкладчик положил в банк 40 000р. под 9% годовых сколько денег будет лежать на его счету через 2 года....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N = 7;
Var
A:array[1..N] of integer;
i,j:integer;
Begin
j:=0;
WriteLn('Введи массив A(N)');
For i:= 1 to N do
Begin
Read(A[i]);
if (A[i] mod 7 =1)or(A[i] mod 7 =2)or(A[i] mod 7 =5) then j:=j+1
End;
WriteLn(j)
End.