Найти количество четных элементов массива - 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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы