Дан массив В(20). Найти произведение и количество элементов удовлетворяющих условию 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

Следующий вариант

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

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment