Найдите количество отрицательных чисел одномерного массива - VB

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

Найдите количество отрицательных чисел одномерного массива размером 30 элементов заполненного случайными числами из отрезков [-100:100]

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

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

                            Dim R(1 To 30)
 
Private Sub Form_Load()
Randomize Timer
For i = 1 To 30
R(i) = Rnd() * 200 - 100
If R(i) < 0 Then
n = n + 1
End If
Next
MsgBox "Отрицательных чисел =" & n
End Sub
                        

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

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

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