Заполнить массив D(15) ручным способом и посчитать в нем количество элементов, кратных 7)...

Question

Заполнить массив D(15) ручным способом и посчитать в нем количество элементов, кратных 7) на бейсике, заранее огромное спасибо)))

Answer 1

Язык QBasic 4.5

 

CLS
DIM d(15)
PRINT "Введите элементы массива "
N = 0
FOR I = 1 TO 15
INPUT d(I)
IF (d(I)< >0) AND (d(I) MOD 7) = 0 THEN N = N + 1
NEXT I
PRINT "Количество кратных 7 =", N
END