Найти среднее арифметическое элементов матрицы - VB (60202)
Формулировка задачи:
Помогите пожалуста, вот задание:
Заданая квадратная матрица А
размером N x N (N<=10) из
действительных елементов. Знайти
среднее арифметическое елементов
каждого из парных стопчиков етой матрицы.
Можете сделать её у Visual Basic
ver.3.0.
Решение задачи: «Найти среднее арифметическое элементов матрицы»
textual
Листинг программы
Sub Task(A() as double) n%=Ubound(A,1) for i%=2 to n% step 2 S#=0 for j%=1 to n% S#=S#+A(j%,i%) Next j% Debug.print "Столбец ";i%;" среднее=";S#/n% Next i% End Sub