Вычислить произведение всех положительных чисел меньше 20. — QBasic(Бейсик)

Например, если А= {2,24,-3,6,5,-2,33}
результат 2*6*5=60.
CLS
INPUT "N=", n
DIM a(n)
FOR i = 1 TO n
    PRINT "A("; i; ")=";
    INPUT a(i)
NEXT i
P = 1
FOR i = 1 TO n
    IF a(i) > 0 AND a(i) < 20 THEN P = P * a(i)
NEXT i
PRINT P

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment