Найти количество четных элементов массива - Pascal ABC (14444)

Узнай цену своей работы

Формулировка задачи:

Помогите написать функцию по нахождению количества четных элементов массива в паскале abc

Решение задачи: «Найти количество четных элементов массива»

textual
Листинг программы
var
n,i,k:longint;
a:array[0..100000]of integer;
begin
readln(n);
k:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do 
if not(odd(a[i])) then k:=k+1;
end.

Объяснение кода листинга программы

В данном коде происходит чтение входных данных, представленных в виде целого числа n и массива a. Переменная n используется для определения количества четных элементов, а переменная k инициализируется нулем. Затем происходит цикл for, который выполняется n раз. Внутри цикла считывается каждый элемент массива a с помощью функции read. Далее следует еще один цикл for, который также выполняется n раз. Внутри этого цикла проверяется, является ли текущий элемент массива четным с помощью функции odd. Если текущий элемент не является четным, то переменная k увеличивается на единицу. В конце кода выводится значение переменной k, которое представляет количество четных элементов в массиве.

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы