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

17 декабря, 202217 декабря, 2022 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