Var sr:array[1..3] of real;

I,j:integer; X,y,z:matr; maxsr:real; f:text;

{ подпрограмма вычисления среднего значения}

function sred(a:matr;m,n:integer):real;

Var s:real;

begin

s:=0;

for i:=1 to m do

for j:=1 to n do

s:=s+a[i,j]; sred:=s/(m*n)

end;

{--------main--------}

Begin

assign(f,’Matrica.pas’);

reset(f);

readln(f);

for i:=1 to 2 do

for j:=1 to 3 do

read(f,x[i,j]);

readln(f);

readln(f);

for i:=1 to 3 do

for j:=1 to 3 do

read(f,y[i,j]);

readln(f);

readln(f);

for i:=1 to 3 do

for j:=1 to 2 do

read(f,z[i,j]);

{--Обращение к подпрограмме-функции--}

sr[1]:=sred(x,2,3);

sr[2]:=sred(y,3,3);

sr[3]:=sred(z,3,2);

AppEnd(f); {--Печать результатов в файл--}

writeln(f,' Cредниe значения: ');

for i:=1 to 3 do write(f,' sr[',i,']=',sr[i]:5:2);

writeln(f);

maxsr:=sr[1];

for i:=2 to 3 do if maxsr<sr[i] then maxsr:=sr[i];

writeln(f,' maxsr=',maxsr:5:2);

Close(f)

End.

4

Авдеева Л.В Тема 8-mass2 ХТФ 2012г.