Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vikhas123
28.11.2021 07:11 •
Информатика
Дан массив из 15 элементов найти все числа кратные 2 я не шарю в этом напишите программу
Показать ответ
Ответ:
vikakulba
04.08.2020 09:22
Var
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
begin
Read(a[i]);
if (a[i] mod 2 = 0) then cnt:= cnt+1;
end;
Writeln(cnt);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dnabib
19.11.2022 10:50
Выберите существующие типы таблиц. Выберите несколько из 4 вариантов ответа: * Таблицы не различаются по типам. Объект-объект .Существует огромное множество типов...
DairLayra
17.10.2020 13:04
1. Создание первичных документов а. издательства б. архивы в. информационные службы г. отраслевые информационные центры 2. Предоставление первоисточников а. маркетинговые...
PadhD
16.07.2020 10:13
.help please me hshgshsbshshwbbedb...
TheDorams
20.11.2022 17:28
Логическая функция F задается выражением …...
yoongi2017
20.10.2020 00:54
Напишите программу, которая вычисляет корень 40²+30² ....
nikkun80
24.10.2020 01:53
У исполнителя Вычислитель имеются две команды 1) прибавь 2 2) умножь на x (x - неизвестное натуральное число, x больше или равно 2) Выполняя первую из них , вычислитель...
Nelya2612
27.05.2020 20:05
Напишите скрипт, который в качестве параметра принимает адрес каталога и сохраняет в файле tree содержимое этого каталога - все файлы, включая скрытые, выведенные...
RyashenkoNastya
30.01.2021 09:53
Срчно нужна помщь 3.Вычислите стаж работы сотрудников фирмы по формуле: =ГОД(СЕГОДНЯ()-Дата приема на работу)-1900 4. Добавьте столбец Тарифные ставки и вычислите...
ntaskaeva2
13.12.2022 08:58
Выполняем в тетради 1. Выполните несколько операций в массиве Array: 1) массив типа float с числом элементов 10 и присвоить ему нулевые начальные значения. 2) Array...
Anastasia20181
06.03.2023 06:04
Дана цепочка символов, составляющих вашу фамилию. Запишите цепочку символов, которая получится в результате применения к исходному слову данного алгоритма два раза....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
begin
Read(a[i]);
if (a[i] mod 2 = 0) then cnt:= cnt+1;
end;
Writeln(cnt);
end.