Среднее арифметическое положительных чисел,стоящих по главноц диагонали - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д