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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник