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

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

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

Код к задаче: «Найти количество четных элементов массива - Pascal ABC (14444)»

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.

14   голосов, оценка 3.929 из 5


СОХРАНИТЬ ССЫЛКУ