Дан произвольный массив А(20). Подсчитать, сколько элементов массива с номерами 1,2,4,8… имеют значение, меньшее 0.25 — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DIM a(20)
FOR i = 1 TO 20
a(i) = RND(1) / 2
NEXT
PRINT "massiv"
FOR i = 1 TO 20
PRINT a(i); " ";
NEXT
k = 1
PRINT
DO
IF a(k) < .25 THEN m = m + 1: PRINT "k="; k; "element="; a(k)
k = k * 2
LOOP UNTIL k > 20
PRINT
PRINT "takih elementov="; m

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

Leave a Comment