Дан массив В(20). Найти произведение и количество элементов удовлетворяющих условию a

4 марта, 20234 марта, 2023 disel

INPUT "vvedite a ", a
INPUT "vvedite c ", c
DIM b(20)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO 20
    b(i) = INT(RND * 20)
    PRINT b(i);
NEXT
PRINT
p = 1
FOR i = 1 TO 20
    IF b(i) > a AND b(i) < c THEN kol = kol + 1: p = p * b(i)
NEXT
PRINT "kolichestvo="; kol; " proizvedenie="; p

INPUT "vvedite a ", a
INPUT "vvedite c ", c
DIM b(20)
PRINT "massiv"
FOR i = 1 TO 20
    INPUT "vvedite element ", b(i)
NEXT
FOR i = 1 TO 20
    PRINT b(i);
NEXT
PRINT
p = 1
FOR i = 1 TO 20
    IF b(i) > a AND b(i) < c THEN kol = kol + 1: p = p * b(i)
NEXT
PRINT "kolichestvo="; kol; " proizvedenie="; p