Заполнить массив десятью случайными числами и вычислить их среднее арифметическое - VB

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

1. Создать проект, который заполняет массив десятью случайными числами и вычисляет их среднее арифметическое.

                    Листинг программы
                
 
                        
                          
                    
Dim a() As Single
Dim i, n As Integer
Dim k As String
Dim Max As Single
 
Private Sub Command1_Click()
n = Val(Text1.Text)
ReDim a(1 To n)
Randomize Timer
For i = 1 To 10
a(i) = Int(100 * Rnd)
Text2.Text = Text2.Text + "" + Str(a(i))
Next i
End Sub
 
Private Sub Command2_Click()
Max = a(1)
For i = 2 To n
  If a(i) > Max Then
     Max = a(i)
  End If
Next i
Text3.Text = Str(Max)
End Sub

помогите 10 случайных чисел выдает но не могу задать вычисление среднего значения

Решение задачи: «Заполнить массив десятью случайными числами и вычислить их среднее арифметическое»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim Summa
Dim Srednee
ReDim a(1 To 10)
Randomize Timer
Summa = 0
For i = 1 To 10
  a(i) = Int(100 * Rnd)
  Text2.Text = Text2.Text + "" + Str(a(i))
  Summa = Summa + a(i)
Next i
Srednee = Summa / 10
End Sub

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

7 голосов , оценка 3.714 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы