Среднее арифметическое элементов на главной диагонали матрицы (Basic), страница 3

     S=

4) Блок-схема алгоритма

5) Программа

Private Sub Start_Click()

Dim i As Integer, j As Integer, S() As Integer, SA As Double, A As Integer

n = Val(InputBox("Введите размерность массивa S"))

ReDim S(1 To n, 1 To n)

For i = 1 To n

For j = 1 To n

S(i, j) = InputBox("Значение элемента S(" & i & ", " & j & ") равно ")

Next

Next

A = 0

For i = 1 To n

For j = 1 To n

If i = j Then

t = j

A = A + S(i, j)

SA = A / t

End If

Next

Next

Print "Среденее арефмитическое элементов" & vbNewLine & "главной диагонали матрицы S равно " & SA

Print " для матрицы S равной: "

V = Вывод(S)

Print V

End Sub

Private Function Вывод(NB8 As Variant) As String

Dim k As Integer, j As Integer, S As String

For k = LBound(NB8, 1) To UBound(NB8, 1)

For l = LBound(NB8, 2) To UBound(NB8, 2)

S = S & " " & NB8(k, l) & "   "

Next

S = S & vbNewLine

Next

Вывод = S

End Function

6) Пример выполнения программы