Вот 95%-й исходник этой проги...
Трабл в следующем:
Программа работает только с массивом 2X2..
Код
Program Boban;
Uses crt;
var
sred:real;
k,sum,m,n,i,j:integer;
a:array[1..10,1..10]of integer;
Procedure MatrixOut(x,y:integer);
begin
writeln;
for i:=1 to x do
begin
for j:=1 to y do
Write(a[i,j]:8);
Writeln;
end;
Writeln;
end;
begin
clrscr;
Write('Vvedite razmer massiva (MxN):');
readln(m,n);
Writeln('Vvedite elementi massiva:');
for i:=1 to m do
for j:=1 to n do
begin
Write('A[',i,' ',j,']:=');
readln(a[i,j]);
end;
MatrixOut(m,n);
Write('Vvedite dannuy stroky *k*:');
readln(j);
for i:=1 to m do
begin
Writeln(a[i,j]);
sum:=a[i,j]+a[i-1,j];
end;
Writeln('Summa:',sum);
sred:=sum/m;
Writeln('Srednee znachenie dannoi stroki:',sred:1:1);
for i:=1 to m do
begin
if (sred<a[i,j-1]) and (sred<>a[i,j-1]) then
k:=k+1;
if (sred<a[i,j+1]) and (sred<>a[i,j+1]) then
k:=k+1;
end;
Writeln('Kolichestvo chisel bolschih srednego:',k);
readln;
END.