Алгоритмизация и программирование с использованием одномерных массивов - 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