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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
