инфа / проги инфа вар 1,2(родионова) / Новый текстовый документ

function Sred(m:matr;x,y:integer):real;
var i,j:=integer;
sr:real;
begin
sr:=0;
for i:=1 to x do
for j:=1 to y do
sred:=sred+m[i,j];
Sred:=sr/(x*y);
end;
procedure Modul(var m:matr;x,y:integer);
var i,j:integer;
begin
for i:=1 to x do
for j:=1 to y do
if m[i,j]<0 then m[i,j]:=abs(m[i,j]);
end;

procedure prov(var m:matr;x,y,fl:integer);
var i,j:=integer;
begin
fl:=1;
k=:0;
for j=1 to y do
if m[i,j]<=0 then k:=k+1;
end;
begin
s:=0;
for i=2 to x do
for j=1 to y do
if m[2,j]<0 then s:=s+1;
end;