Найдите количество отрицательных чисел одномерного массива - 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
Похожие ответы