Close(f)

Begin

Begin

Определить матрицу, имеющую максимальное среднее значение элементов.

Begin

C[i,j] := 0;

For k:= 1 to M do

C[i,j] := c[i,j] + a[i,k] * b[k,j];

End;

 

 

Пример. Заданы 3 матрицы

uses crt;

const n=3;

type matr=array[1..n,1..n] of real;

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;

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--------}

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);