В заданном одномерном массиве состоящем из n целых частей нужно посчитать количество четных

Question

Информатика

Татьяна

17 декабря, 09:06

В заданном одномерном массиве состоящем из n целых частей нужно посчитать количество четных

+4

Ответы (1)

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

Онисим · Answer 1

Var n, c, i: integer; A: array[1 ... 10000] of integer; begin write ('Кол-во частей: ') ; read (n) ;

for i:=1 to n do read (A[i]) ;

c:=0; for i:=1 to n do if A[i] mod 2 = 0 then c + = 1; write ('Чётных чисел: ', c) ; end.