Ввести n чисел вывести количество чётных. (Паскаль)

Question

Информатика

Феоктиста

25 августа, 09:45

Ввести n чисел вывести количество чётных. (Паскаль)

+4

Ответы (1)

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

Миха · Answer 1

Program n1;

var a, i, n, k: integer;

begin

readln (n) ;

k:=0;

for i:=1 to n do

begin

readln (a) ;

if a mod 2=0 then k:=k+1;

end;

write (k) ;

end.