Сортировка одномерного массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
