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

Question

Информатика

Ириша

5 июня, 04:44

В заданном одномерном массиве состоящем из 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.