Определить среднее арифметическое положительных элементов матрицы - VB
Формулировка задачи:
Для каждой из матриц A(3,3) B(4,4) C(2,3) определить среднее арифметическое положительных элементов
Решение задачи: «Определить среднее арифметическое положительных элементов матрицы»
textual
Листинг программы
Option Explicit
Sub Matr(A() As Integer) 'Функция должна что-то возвращать (хотя и не обязана). Пусть будет Sub ...
Dim sum As Long
Dim k As Integer
Dim i As Integer
Dim j As Integer
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
A(i, j) = Int(Rnd() * 20 - 10)
If A(i, j) > 0 Then sum = sum + A(i, j): k = k + 1
Next
Next
MsgBox IIf(k > 0, sum / k, "нет положительных элементов")
End Sub
Sub proga()
Dim A() As Integer, m As Integer, n As Integer
n = InputBox("Введите кол-во строк")
m = InputBox("Введите кол-во столбцов")
ReDim A(1 To n, 1 To m)
Matr A
End Sub