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

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

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

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

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.000 из 5


СОХРАНИТЬ ССЫЛКУ