Задача ** QBasic.Найдите произведение чисел массива кратных числу K.

Question

Задача на QBasic.
Найдите произведение чисел массива кратных числу K.

Answer 1

DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
    X(I) = INT(RND(1) * 20) + 1
    PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
    IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P