Последовательность - VB (172018)

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

Привет. С праздником всех мужиков))) Помогите решить программку. Даны натуральное число N и последовательность А1, А2 ...... Аn. В даной последовательности определить число соседств двух положительных чисел

Код к задаче: «Последовательность - VB (172018)»

textual
Dim N As Integer, i As Integer, c As Integer
N = InputBox("N")
ReDim a(1 To N) As Single
For i = 1 To N
a(i) = InputBox("A(" & i & ")")
Next i
For i = 1 To N - 1
If a(i) > 0 And a(i + 1) > 0 Then c = c + 1
Next i
MsgBox c

13   голосов, оценка 4.462 из 5


СОХРАНИТЬ ССЫЛКУ