Сортировка одномерного массива - VB (172313)
Формулировка задачи:
массив A размерность N, как определить кол-во отрицательных эллементов массива, предшествующих первому положительному?Буду благодарна. Если с комментами еще большее спасибо
Решение задачи: «Сортировка одномерного массива»
textual
Листинг программы
Dim A() As Single, N As Integer, count As Integer
count = 0
N = InputBox("N")
ReDim A(1 To N)
For i = 1 To N
A(i) = InputBox("Element " & i)
If A(i) < 0 Then
count = count + 1
ElseIf A(i) > 0 Then
Exit For
End If
Next i
MsgBox "Таких элементов " & count