ИНФОРМАТИКА СРОЧНО!Дан массив натур.чисел, подсчитать кол-во произв. кратных 10

Question

ИНФОРМАТИКА СРОЧНО!
Дан массив натур.чисел, подсчитать кол-во произв. кратных 10

Answer 1

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

Comments

а в паскале сможешь?

---

Я его плохо знаю, так что пожалу нет

Answer 2

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