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

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

Ответ:

ruslanchik1999

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

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

bogdan345710

17.05.2023 02:30

Дан численный массив.Проверить есть ли в нем одинаковые элементы.Вывести на экран сообщения о наличие или отсутствии одинаковых чисел в массиве Посчитать и вывести сумму таких элементов...

skirtachmaksim

28.11.2021 03:16

Разделить массив, заполненный случайным образом только положительными числами, на два - четных и нечетных. составить блок схему и написать программу....

2006197909876

11.03.2023 00:16

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

angelinadvuradkina

20.05.2023 06:08

Проблема с паскалем. мне надо посчитать среднее арифметическое всех отрицательных чисел в массиве из десяти элементов. я понимаю, как сначала надо распредилить, какие числа меньше...

ksunavolik

27.04.2020 16:52

Передача данных через adsl-соединения заняла 2 минуты .зато время был передан файлразмер которого 3750 кбайт определите минимальную скорость (бит в сек) при которой такая передача...

nikiton22877

27.04.2020 16:52

Скорость передачи данных через adsl-соединения равна 1024000 бит/сек.передача файла через данное соединение заняла 5 сек .определите размер файла в килобайтах....

Nik08ov

14.06.2021 16:24

2гбайт перевести в байт(решение написать)...

coolgirl2007

14.06.2021 16:24

Дано слово. вывести на экран его третий символ и дважды его последний символ....

pavelakur

21.06.2020 03:10

График функции y=10x+6 пересекает ось Oy в точке с координатами:...

Dimoooon12321

21.06.2020 03:10

У Біблії час правління Соломона названо ,,золотим віком .Як ви вважаєте, чи відповідало істині це твердження...

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

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