Close(t)

end;

{ **************** main program ********************* }

Begin

input(x,2,3,’f1.pas’);

input(y,3,3,’f2.pas’);

input(z,3,2,’f3.pas’);

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

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

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

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

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

writeln;

maxsr:=sr[1];

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

writeln(' max=',maxsr:5:2)

End.

 

Файлы f1.pas, f2.pas и f3.pas содержат матрицы x,y и z соответственно

Ввод исходных данных из файла.