Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
alenalebedeva2
13.05.2020 09:24 •
Информатика
Бет өлшемдерінорнату үшін беттің орналасуы
Показать ответ
Ответ:
Sasha0102031
10.02.2022 15:11
0,0
(0 оценок)
Ответ:
airamoon
09.11.2022 13:27
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 оценок)
Популярные вопросы: Информатика
artemluts007
22.02.2021 05:45
Задача №112298. Реверс половин Реверс массива – это перестановка элементов в обратном порядке: меняются местами первый и последний элементы, второй и предпоследний...
sanay06
22.02.2021 05:45
3. Определи результат переменной b после выполнения программы. a=1b=1while(a 3): a+=1 b+=5 print(b)4. Определи результат переменной x после выполнения программы.x...
fearlessaliss
22.02.2021 05:49
Задача №112308. Каждый третий Напишите программу, которая выбирает в другой массив каждый третий элемент исходного массива, начиная с первого. Входные данные Первая...
ЕмелиЯна
22.02.2021 05:51
Задача №112296. Самая длинная цепочка Напишите программу, которая находит в массиве самую длинную цепочку одинаковых элементов. Программа должна вывести значение...
olinikvioletta62
22.02.2021 05:52
Задача №112294. Три минимума Напишите программу, которая находит в массиве три минимальных элемента, то есть три первых элемента массива после сортировки по возрастанию....
тина123болото
23.09.2019 07:50
Напишите программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество чётных натуральных чисел на отрезке [a, b] (включая...
СветланаСветик3
23.09.2019 07:40
20 ! написать программу в ! даны 3 стороны треугольника.надо найти площадь(по формуле герона)...
tata479
23.09.2019 07:40
1. из заданной матрицы а(7х7), элементы которой формируются как массив случайных чисел, сформировать одномерный массив в, состоящий из диагональных элементов матрицы...
Дако031204
23.09.2019 07:40
Составь алгоритмы обмена объектов местами. цель поменять местами картофель и морковь....
malikajdar
23.09.2019 07:40
Черно-белое растровое графическое изображение имеет размер 15*20 точек. какой информационный объем имеет изображение?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
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.