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