Найти среднее арифметическое из квадратов заданной последовательности - 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

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


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

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

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