Найти среднее арифметическое из квадратов заданной последовательности - VB
Формулировка задачи:
Добрый день! Вот задали по VB пару заданий все получалось а вот с массивами замкнулся не могли бы вы мне помочь. Текст задания
"Массив С заполнен случайным набором целых чисел, найти среднее арифметическое из квадратов данной последовательности"
Правда самому даже задание не совсем понятно но прока что набросал очень малоВывел с большим трудом в TextBox1 содержание массива от 1 до 10 вот и все, помогите по заданию всего то два осталось )))))
Решение задачи: «Найти среднее арифметическое из квадратов заданной последовательности»
textual
Листинг программы
Public Class Form1 Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim A(), i, n, sum As Integer, r As New Random n = 10 'размер массива ReDim A(n - 1) TextBox1.Text = "" For i = 0 To n - 1 A(i) = r.Next(1, 10) TextBox1.Text &= "A(" & i & ") = " & A(i) & vbCrLf sum += (A(i)) ^ 2 'сумма квадратов Next i TextBox1.Text &= "Среднеe арифметическое квадратов " & sum / n End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д