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