Дана линейная таблица, состоящая из 20 элементов. Требуется определить, сколько элементов таблицы с номером 1, 2, 4, 8, 16, … имеют значения, меньшие 0.25.- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
DIM A(20) AS SINGLE
   CLS : PRINT "Ishodnaya tablica"
   RANDOMIZE TIMER
   FOR i = 1 TO 20
    A(i) = RND
    PRINT A(i);
   NEXT:
n=1
for i=1 to 5  
IF A(n) < .25 THEN k = k + 1
n=n*2
next
   PRINT "Elementov < .25 :"; k

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

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

Leave a Comment