Среднее арифметическое положительных чисел,стоящих по главноц диагонали - 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

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


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

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

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