Определить, имеются ли в данной последовательности два идущих подряд нулевых числа - VB

Формулировка задачи:

Ребят...я снова прогу в состояние работающей привести не могу. Половина только пашет... Вот задачка:

Дано натуральное n и целые числа a1….an . Имеются ли в данной последовательности два идущих подряд нулевых числа?

Вот то, на что хватило меня...:

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim W(10) As Integer
Dim a As Integer
Dim b As Integer
n = InputBox("Введите количество членов n=")
For i = 1 To n
W(i) = InputBox("Введите a(" & i & ") ")
Next i
If W(i) = 0 And W(i + 1) = 0 Then
a = 1
Else
a = 0
MsgBox a
End If
End Sub

Тут то ли лишнее чут, то ли не хватает куска Помогите, пожалуйста, до ума довести))

Решение задачи: «Определить, имеются ли в данной последовательности два идущих подряд нулевых числа»

textual
                            Листинг программы 
                        
                            FOR i = 10 TO n - 9
IF W(i-9) = 0 AND W(i -8) = 0 THEN

Оцени полезность:

7 голосов , оценка 4.143 из 5

Похожие ответы