Последовательность - VB (172018)
Формулировка задачи:
Привет. С праздником всех мужиков))) Помогите решить программку. Даны натуральное число N и последовательность А1, А2 ...... Аn. В даной последовательности определить число соседств двух положительных чисел
Решение задачи: «Последовательность»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д