xtended Пишу в 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

анна13915 На 10 делятся числа 2 и 5 , а количество произведений равняется 2 потому что получаем 2 произведения 20 и 50