Алгоритмизация и программирование с использованием одномерных массивов - VB

Узнай цену своей работы

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

Задан массив X1, X2, …, Xm..Вычислить среднее арифметическое всех отрицательных значений функции.

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

textual
Листинг программы
Private Sub Form_Load()
Dim X() As Single, m As Integer, count As Integer, sum As Single, i As Integer
Dim txt As String
count = 0: sum = 0: txt = "": m = InputBox("m")
ReDim X(1 To m)
For i = 1 To m
X(i) = Int(100 * Rnd - 50)
txt = txt & X(i) & " "
If X(i) < 0 Then sum = sum + X(i): count = count + 1
Next i
If count > 0 Then
MsgBox txt & Chr(13) & sum / count
Else
MsgBox txt & Chr(13) & "Нет отрицательных!"
End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 4.25 из 5
Похожие ответы