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

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

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

Ответ:

427v2

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

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

bigmama2

30.01.2020 12:28

Як показати на діаграмах процес редагу- вання графічної фігури з операціями: вида- лити, копіювати, вирізати?...

Диана1еее

16.01.2020 13:03

Даю 80б. У класс информатика. Нужно у а не решить....

Qwertyuiopkoval

27.04.2020 07:51

Тема: pascal, цикл з передумовою; задано ціле число. знайти суму цифр у записі числа....

ncrfeed

24.09.2021 12:33

(python). длина московской кольцевой автомобильной дороги —109 километров. байкер вася стартует с нулевого километра мкад и едет со скоростью v километров в час. на какой отметке...

kkkkkdashakkkk

14.04.2022 14:27

PYTHON Условие На ярмарке к вам подошел мужчина с немного странными взглядом. Наверное, он волшебник. Он сказал, что изготавливает необычные детские игрушки. Более того, за изготовление...

авяпвяа

26.04.2023 18:19

решить, с подробным решением...

gotov2344433332

05.04.2022 16:40

:) Можете не делать таблицу и диаграмму, а просто нарисовать их, мне просто важно знать как это должно выглядеть. Заранее .В Україні за 2011 рік утворилося близько 50 млн. м3...

katya0913

20.09.2020 19:39

Які назви змінних в Python є вірними: А) G Б) ABC В) 41n Г) a+b Д) _ab...

двоишник53

06.09.2022 23:42

Напишите наибольшее число для НЕ( x 10 или x 2)...

MoNsTeR221

13.07.2022 21:21

С++ Створити клас «Монітор» (з полями: тип монітору, розмір діагоналі, ціна).Визначити конструктор ініціалізації, методи для встановлення/зміни значень полів, методи для виведення...

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

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