Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
usimbekovameruert
29.06.2022 05:30 •
Информатика
Найти количество чётных элементов массива
Ответ:
CadetLada42
06.07.2020 19:23
Var a:array[1..20] of integer;
i,k:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if not odd(a[i]) then k+=1;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
помошник137
27.02.2023 19:07
Напишите программу, которая в последовательности целых чисел определяет среднее арифметическое отрицательных чисел, кратных 6. программа получает на вход целые...
kogoch
02.04.2022 20:20
Какое значение получит переменная у после выполнения фрагмента алгоритма? х:=1 у:=2*х у:=у+3 у:=у*х у:=у+4 у:=у*х у:=у+5 Восстановите формулу вычисления у для произвольного...
aaaaa123456789p
01.10.2022 01:43
решить ошибку. В тексте ошибки написано: Failed to compile ./node_modules/@vkontakte/vkui/dist/components/ActionSheetItem/ActionSheetItem.js Module not found: Can...
kosenkoanton72
31.08.2020 08:20
1. Как строится ряд натуральных чисел в разных позициях систем счисления (от 1 до 10) 2.Какое минимальное основание должна иметь система счисления, если в ней можно...
elensarkisian
14.09.2022 09:08
написать программу на C# В массиве хранится информация о стоимости 1 килограмма 30 видов конфет. Определить порядковый номер самого дешевого вида конфет. Если таких...
natilis
09.05.2020 03:54
Преимуществами языка Python являются Варианты ответов платформонезависимость встраиваемость простота наличие большой библиотеки классов динамическая типизация (для...
punipunipoemi
18.11.2020 18:20
В майне зависают клавиши WASD , Пробел и Shift. (Клава чистая , новая и вполне хорошая). Но как только я начинаю играть эти клавиши зависают). Очень . Если нужно...
1dianalady1
10.08.2020 17:49
Исполнитель черепашка выполнил последовательность команд: вперёд (1 см), направо (90°), вперёд (1 см), направо (90°), вперёд (1 см), направо (90°), вперёд (1 см),...
Sezim67
02.03.2020 05:04
Выберите верные строки кода. Варианты ответов print( Поэма Мёртвые души одна из самых интересных ) print( I m 16 and I m from Northern Ireland. ) print( I m a math...
lenab85
27.03.2023 18:10
Выберите верные утверждения. Варианты ответов Имя переменной не может начинаться с цифры Имя переменной не может совпадать со служебным словом Имя переменной не...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
i,k:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if not odd(a[i]) then k+=1;
end;
writeln(k);
end.