Войти Регистрация Спроси ai-bota

Найти количество чётных элементов массива

Показать ответ

Ответ:

Алёна345135537

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 оценок)

Популярные вопросы: Информатика

ekzz1

20.09.2021 07:15

43) в каталоге находятся файлы со следующими именами: dinar.mpg inoe.mpg line.mpeg mine.mdb mine.mp3 pinoccio.mp3 определите, по какой из масок будет выбрана указанная группа...

Kat11166

19.01.2020 08:32

Лазерный диск cd вмещает 600 мб, сколько страниц учебника можно записать на один диск, если на первой странице учебника можно записать 50 строк по 40 символов. сколько бит информации...

adilet2017

13.03.2020 07:43

Что не правильно в этой программе? надо найти среднее арифметическое нечетных чисел. в этой строке (i: =i+1; ) пишет нельзя изменять значение переменной цикла внутри этого цикла...

anymay20041302

21.10.2021 16:23

Напишите программу, которая определяет сколько раз встречается максимальное число в и-той последовательности, ограниченная n значением. при этом каждое вводимое число должно храниться...

Licona

03.04.2022 20:29

Запишите в развёрнутой форме числа: 143057 в 10 степени= 29701 в 10 степени= 101001 во 2 степени= 111000 во 2 степени=...

vikasss1581

21.10.2021 16:23

Садовод вася посадил у себя на участке, на севере, юге, западе и востоке по саженцу деревьев: вишня, груша, слива, яблоня. но на следующий год забыл, что где растет, но помнит...

Adilka11

22.02.2023 13:40

Логическое выражение или укажите его результат (при его однозначности). результат может содержать только операции инверсии, конъюнкции и дизъюнкции. (noty→x)and(notx→y)and(x↔y)...

asemk85

24.10.2022 07:24

Составить предложение со словом видение...

tatanavolosnova1

24.10.2022 07:24

Что объединяет слова каждого ряда тора менора кипа...

Dianaspbrf

24.10.2022 07:24

С.не надо писать иди учись и т.д.что бы просто получить деньги. 1.верно ли следующие утверждения? при нагревание пробирки пробирко держатель закрепляют чуть ниже середины пробирки....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку