Найдите количество элементов матрицы, больших среднего арифметического всех её элементов - VB

Формулировка задачи:

Дана матрица A(N, M). Найдите количество элементов этой матрицы, больших среднего арифметического всех её элементов. код паскаля

                    Листинг программы
                
 
                        
                          
                    
program z_147;
uses crt;
var
i,j,m,n:integer;
sr:real;
a:array[1..10,1..10]of integer;
 
procedure new_mas;
begin
writeln('vvedite elementi massiva ');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
clrscr;
end;
 
procedure write_mas;
begin
writeln('matrica razmerom ',n,'*',m);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write(' a[',i,',',j,']=',a[i,j]);
end;
end;
 
procedure srar_mas;
var
s: integer;
begin
s := 0;
for i:=1 to n do
for j:=1 to m do
s:=s+a[i,j];
sr:=s/(n*m);
writeln;
writeln('srednee arifmeticheskoe =',sr:4:2);
end;
 
procedure bol_sr_mas;
var
k: integer;
begin
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>sr then k:=k+1;
writeln('Kol elementov bolhe srednego =',k);
end;
 
begin
clrscr;
writeln('Vvedite razmernost matrici n*m ');
write('Vvedite n= ');
readln(n);
write('Vvedite m= ');
readln(m);
new_mas;
write_mas;
srar_mas;
bol_sr_mas;
readln;
end.

Решение задачи: «Найдите количество элементов матрицы, больших среднего арифметического всех её элементов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim a() As Integer, n, m As Integer, sr, srr As Single
Private Sub Command1_Click()
Dim i, z As Integer, j As Integer
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число строк", , 10)
n = InputBox("Введите число столбцов", , 10)
ReDim a(1 To m, 1 To n) ' Размеры матрицы А -  m-строк, n-столбцов
For i = 1 To m
  For j = 1 To n
      a(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами
      Print a(i, j); vbTab;
  Next j
  Print
Next i
 
sr = 0
For i = 1 To m
    For j = 1 To n
        sr = sr + a(i, j)
    Next j
 Next i
Print
 
srr = sr / (n * m) ' находим средний
Print "Среднее арифметическое "; srr
 
z = 0
For i = 1 To m
    For j = 1 To n
        If a(i, j) > srr Then z = z + 1 ' считаем кол-во элеметов больших среднего
    Next j
  Next
Print "Количество элементов больших среднего арифметического"; z
End Sub