Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
а) 9100
б) 11(ост.6)
в) 7652
г) 6064224
5) 3x^2 + 17x -20=0 )))))))))))) Пожалуйста решите с объяснением, 60 баллов .