Дан массив из 10 элементов.найти количество элементов массива до первого элемента равного 111- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
n=10
DIM a(n)
FOR i=1 TO n
 PRINT "a(";i;")=";
 INPUT a(i)
NEXT i
PRINT "Massiv"
FOR i=1 TO n
 PRINT a(i);
NEXT i
PRINT
k=0
FOR i=1 TO n
 IF a(i)=111 THEN EXIT FOR
 k=k+1
NEXT i
IF k= n THEN
 PRINT "V massive net elementa=111"
ELSE
 PRINT "Do pervogo elementa=111 kolvo elementov=";k
END IF

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

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

Leave a Comment