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

[finch]

вот задача!
дана матрица а(n,m)
наидите количество элементов этой матрицы,больших среднего арифмитического всех её элементов!

приблизительно это будет так
program mayrica;
var
a:array[1..10,1..10] of integer;
sr,kol,sum:real;
j,i:integer;
m,n:integer;
begin
writeln('vedite');
readln(n,m);
sr:=0;
kol:=0;
sum:=0;
for i:=1 to n do
for j:=1 to n do
writeln('a[',i,',',j,']=');
readln(a[i,j]);
kol:=kol+1;
sum:=a[i,j]+sum
end;
for i:=1 to n do
for j:=1 to n do
then
kol:=kol+1;
writeln('kol:=kol');
end;
readln;
end.

[А. Долматов]

дальше, зная количество элементов и их сумму находим среднее арифметическое
avg:=sum div kol;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>avg then
kol1:=Kol1+1;
ну вот так kol1 - это переменная, в которой считается количество нужных тебе элементов
Теперь добавим этот код в программу:
program mayrica;
var
a:array[1..10,1..10] of integer;
sr,kol,sum:real;
j,i,kol1,avg:integer;
m,n:integer;
begin
writeln('vedite');
readln(n,m);
sr:=0;
kol:=0;
sum:=0;
for i:=1 to n do
for j:=1 to n do
begin
writeln('a[',i,',',j,']=');
readln(a[i,j]);
kol:=kol+1;
sum:=a[i,j]+sum
end;
avg:=sum div kol;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>avg then kol1:=Kol1+1;
write('количество элементов матрицы больших среднего арифметического: ',kol1);
readln;
end.

[SereJa1020]

а можно ведь количество элементов посчитать просто как m*n

[Virtson]

и я про это подумал ..

finch - ты где взял код с 1 begin и тремя end ?!