Вычислить произведение всех положительных чисел меньше 20

Категория: Basic
2011-12-15 16:14:13

Например, если А= {2,24,-3,6,5,-2,33}? результат 2*6*5=60.

code: #basic
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

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: студенты, qbasic, произведение, положительные числа