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

disel

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

1
2
3
4
5
6
7
8
9
10
11
12
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

Похожие записи/страницы:

Leave a Comment