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

Question

Информатика

Степанида

3 октября, 16:16

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

+3

Ответы (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.