Среднее арифметическое положительных чисел,стоящих по главноц диагонали - VB
Формулировка задачи:
помогите,пожайлуста, решить задачу:дан двумерный массив А(N,N ).Надо найти среднее арифметическое всех положительных чисел ,стоящих по главной диагонали
Решение задачи: «Среднее арифметическое положительных чисел,стоящих по главноц диагонали»
textual
Листинг программы
Private Sub Command1_Click()
Dim a() As Single
Dim n, i, j, sum
n = InputBox("N")
ReDim a(1 To n, 1 To n) As Single
For i = 1 To n
For j = 1 To n
a(i, j) = Int((100) * Rnd - 50)
Next j
Next i
sum = 0
For i = 1 To n
For j = 1 To n
sum = sum + a(i, i)
Next j
Next i
MsgBox sum / n
End Sub