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

Question

Информатика

Васильич

27 сентября, 16:57

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

+1

Ответы (1)

Знаете ответ на вопрос?

Валюся · Answer 1

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.