Сортировка одномерного массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы