{* Задача150 *}

REM basic

' Дан массив из 10 элементов.найти количество элементов массива до первого элемента равного 111.


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 
End