Пишу в QBasic
CLS
INPUT N
X=0
DIM A(N)
(массив заполните сами)
FOR I = 1 TO N
IF A(I) MOD 10 = 0 THET
X=X+1
END IF
NEXT I
PRINT X
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.