Определить количество положительных и отрицательных чисел массива - VB

Формулировка задачи:

Задан массив из 10 положительных и отрицательных чисел, определить количество положительных и отрицательных чисел. Друзья, третий день голову ломаю, толку 0 Подскажите, через что можно составить программу и какой вариант вывода чисел сделать... Если можно, то с мини-примерами, полного кода не требую.

Решение задачи: «Определить количество положительных и отрицательных чисел массива»

textual
                            Листинг программы 
                        

                            Option Base 1
Dim Arr(10) As Integer, i As Integer
Private Sub Command1_Click()
Dim pCount As Integer, nCount As Integer
Randomize 'Генератор случ. величин
    'Заполняем массив случайными числами от -5 до 5
    For i = 1 To 10
        Arr(i) = Int(10 * Rnd - 5)
        Print Arr(i);
        If Arr(i) >= 0 Then
            pCount = pCount + 1 'Если элемент положительный
        ElseIf Arr(i) < 0 Then
            nCount = nCount + 1 'Если элемент отрицательный
        End If
    Next i
    Print
Print "Отрицательных : " & nCount & vbCrLf & "Положительных : " & pCount
MsgBox "Отрицательных : " & nCount & vbCrLf & "Положительных : " & pCount
 
End Sub
                        

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

8 голосов , оценка 4 из 5

Похожие ответы