Найти среднее арифметическое матрицы, и определить количество элементов матрицы, его превышающих

@Despirion · Регистрация: 18.01.2015

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

Для матрицы a(3,8) найти ее среднеарифметическое и определить количество элементов матрицы его превышающих
Помогите решить пожалуйста
Из написанного уже есть такое:

Visual Basic

Sub Mas
Dim A(3,8) As integer
For i =1 to 3
For j = 1 to 8
A(1,j)=Cells(1,j)
A(2,j)=Cells(2,j)
A(3,j)=Cells(3,j)
Next
Next
For i = 1 to 3
For j = 1 to 8
MA=(A(1,j)+A(2,j)+A(3,j))/i*j
Cells(6,1)=MA
Next
Next

@Farad · 18.01.2015, 16:27

Visual Basic

Option Explicit
 
Sub test()
Dim arr()
arr = Range("a1:c8")
Dim Total
Dim Counter As Long
 
Dim i&, j&
For i = 1 To 8
    For j = 1 To 3
        Total = Total + arr(i, j)
    Next
Next
Dim avValue As Double
avValue = Total / i / j
MsgBox "среднее значение = " & avValue
 
For i = 1 To 8
    For j = 1 To 3
        If avValue < arr(i, j) Then Counter = Counter + 1
    Next
Next
MsgBox "Всего " & Counter & " значений выше среднего по массиву"
End Sub

@Despirion · 18.01.2015, 17:20 **[ТС]**

Спаисбо большое, а можно еще блок-схему к этому коду?

@Farad · 18.01.2015, 17:32

Делайте сами, блок-схемами не пользуюсь.

@Despirion 0 / 0 / 0 Регистрация: 18.01.2015 Сообщений: 5
	18.01.2015, 17:20 [ТС]	3
	Спаисбо большое, а можно еще блок-схему к этому коду? 0

@Farad 12 / 12 / 2 Регистрация: 30.10.2013 Сообщений: 46
	18.01.2015, 17:32	4
	Делайте сами, блок-схемами не пользуюсь. 0