среднее арифметическое положительных чисел,стоящих по главноц диагонали

19.04.2010, 19:07. **Показов** 1215. **Ответов** 1

Author24 — интернет-сервис помощи студентам

помогите,пожайлуста, решить задачу:дан двумерный массив А(N,N ).Надо найти среднее арифметическое всех положительных чисел ,стоящих по главной диагонали

@YuraAAA · 19.04.2010, 19:12

Visual Basic

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

натали т
		1
	среднее арифметическое положительных чисел,стоящих по главноц диагонали 19.04.2010, 19:07. Показов 1215. Ответов 1 Метки нет (Все метки) помогите,пожайлуста, решить задачу:дан двумерный массив А(N,N ).Надо найти среднее арифметическое всех положительных чисел ,стоящих по главной диагонали

	19.04.2010, 19:12

Опции темы