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