Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Fluttershy22102005
03.10.2020 23:24 •
Информатика
2. дан массив из n элементов. определить количество элементов, имеющих четные порядковые номера и являющихся нечетными числами.
Показать ответ
Ответ:
Natasatana
08.10.2020 08:00
Var a:array[1..1000] of longint;
n, i, k: longint;
begin
k:=0
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 = 1) then k:=k+1;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
WirexiaEnderman
20.09.2021 05:10
Работу нужно сдать сегодня Написати програму консольного додатку, яка виділяє масиву int m[15][15] пам ять за до функції VirtualAlloc. Визначити час, який займає дане виділення...
LimOonka
16.01.2022 21:41
Задание С# Опишите используя класс, школьную нагрузку (фамилию преподавателя, класс, часы). Определить у какого преподавателя самая большая нагрузка и у кого самая низкая...
приветик49
23.07.2020 19:39
написать код на Python. Известны n оценок по информатике за 1 четверть. Вычислите средний . Только пишите нормально, а не в 1-3 строчки. Так же нужно использовать цикл while...
addj1404
18.04.2023 19:08
Компонент, який використовується для введення даних?...
sapeglub
25.05.2021 04:36
От Надо написать программу на Python чтобы получилась лягушка....
Xilolahonabdullaeva
22.10.2022 07:24
Хорди АВ і CD кола перетинаються в точці M, AM = 6 см, BM =14 см, CM = 12см. Знайдіть відрізок DM....
NurlG
17.06.2020 08:44
Признаки клинической смерти ...
masya90
31.03.2021 19:24
Тестовые задания по произведениям А. Конан -Дойла и Джеймса ОлдриджаУстановите соответствие1. Между названиями произведений Артура Конан Дойла и героями-участникамипреступлений:1)...
korablevabella
31.03.2021 19:24
Знайдіть радіус кола, якщо довжина дуги п4 см, а відповідний центральний кут 60°.А) 3\4 см; Б) 1\12смВ) 4\3см Г) 12 см....
MrNazick
12.05.2020 07:23
8) У начала координат абсцисса и ордината равны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n, i, k: longint;
begin
k:=0
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 = 1) then k:=k+1;
end;
writeln(k);
end.