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

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

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

Leave a Comment