{* Задача54 *}

REM basic

' Дан целочисленный массив из 30 элементов. Элементы массива могут
' принимать произвольные целые значения. Составьте программу, которая находит и выводит номер третьего
' положительного элемента массива (если из массива вычеркнуть все неположительные
' элементы, этот элемент стоял бы в получившемся массиве на третьем месте). Если в
' массиве меньше, чем три положительных элемента, вывести сообщение об этом.


{Const N=30
}{Dim a(1 To n) As Integer
}{Dim i As Integer
}{Dim j As Integer
}{Dim k As Integer
}{{For i=1 To N
}}{input a(i)
}{Next i
}{...
}{End
}n = 30
Dim a(1 To n) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 1 To n
INPUT a(i)
Next i
i = 1
j = 1
k = 0
Do While j = 1
If i > n Then
j = 0
ElseIf (k = 2) And (a(i) > 0) Then
j = 0
k = i
Else
If a(i) > 0 Then
k = k + 1
End If
i = i + 1
End If
Loop
If i > n Then
PRINT "Меньше трех положительных элементов"
Else
PRINT i
End If
End