Определить в числовом массиве а(n) число соседств - VB
Формулировка задачи:
Определить в числовом массиве а(n) число соседств из двух чисел разного знака/
Решение задачи: «Определить в числовом массиве а(n) число соседств»
textual
Листинг программы
Sub main()
Dim n As Long, i As Long, c As Long
n = InputBox("Введите размер массива")
ReDim a(1 To n) As Long
For i = 1 To n
a(i) = Int(Rnd * n - n / 2)
Next i
For i = 1 To n - 1
c = c - (a(i) * a(i + 1) < 0)
Next i
MsgBox "В числовом массиве а(n) число соседств из двух чисел разного знака = " & c
End Sub