Получить квадратную матрицу

[desant13]

Есть задание :
Получить квадратную матрицу A размером NN (N – случайное число от 4 до 10)
1. Вывести исходную матрицу.
2. Найти среднее арифметическое элементов матрицы.
3. Заменить на (-1) элементы матрицы, большие среднего арифметического.
4. Вывести среднее арифметическое и преобразованную матрицу.

вот что есть:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim i, j, sum, a, b, n As Integer
        Dim t, r As New Random
        Dim matrica(,) As Integer
        Dim matrica2(,) As Integer
 
        a = r.Next(4, 10)
        b = r.Next(4, 10)
        ReDim matrica(a, b)
        ReDim matrica2(a, b)
        Label1.Text = String.Empty
        Label2.Text = String.Empty
        Label3.Text = String.Empty
        Label4.Text = String.Empty

        '********************
        For i = 0 To a
            For j = 0 To b
                matrica(i, j) = r.Next(0, 5)

                n += 1
                sum += matrica(i, j)

                Label1.Text += CStr(matrica(i, j)) + Space(5)

            Next j
            Label1.Text += vbCrLf
        Next i
        '***************
        For i = 0 To a
            For j = 0 To b
                matrica2(i, j) = matrica(i, j)

                
                If matrica2(i, j) > (sum / n) Then matrica2(i, j) = matrica2(i, j) - 1

                Label4.Text += CStr(matrica2(i, j)) + Space(5)


            Next j
            Label4.Text += vbCrLf
        Next i
        Label3.Text = CStr(sum / n)


    End Sub

Так вот, я не пойму смысл 4 вопроса?

[Alex11223]

Так вот, я не пойму смысл 4 вопроса?

А я смысл вашего вопроса не пойму.
Что в нем непонятного? Посчитали среднее арифметическое и новую матрицу — вот и покажите их пользователю. Тем более вы это и сделали уже.

Кстати, матрицу ж NxN просят, а у вас a и b совсем необязательно равны.

И в 3 просят не отнять единицу, а заменить значение элемента на -1.