begin

writeln ('‚ўi¤ Ґ«Ґ¬Ґ­вiў ¬ бЁўг ',mass);

for y:=1 to 3 do

begin

for x:=1 to 3 do

read (A[x,y]);

end;

end;

procedure SUMM (A,B:E; var S:E);

var x,y:integer;

begin

for y:=1 to 3 do

for x:=1 to 3 do

S[x,y]:=A[x,y]+B[x,y];

end;

procedure SUB (A,B,S:E; var C:E;b2:real);

var x,y,i:integer;

begin

SUMM (A,B,S);

write ('Њ бЁў C');

for y:=1 to 3 do

begin

writeln;

for x:=1 to 3 do

begin

C[x,y]:=0;

for i:=1 to 3 do

C[x,y]:=C[x,y]+(S[i,x]*B[i,y]);

write (C[x,y]:7:2);

if (x=1) AND (y=1) then b2:=C[x,y]

else

if C[x,y]<b2 then b2:=C[x,y];

end;

end;

writeln;

writeln ('Њi­i¬ «м­Ё© Ґ«Ґ¬Ґ­в ¬ ваЁжi ‘ у ',b2:7:2);

end;

begin

mass:='A';

INPUT (mass,A);

mass:='B';

INPUT (mass,B);

SUB (A,B,S,C,b1);

writeln (' ’ Ў«Ёжп §­ зҐ­м ¤«п § ¤ ­®х дг­Єжiх');

writeln (' t f');

for t:=1 to 50 do

begin

if t>40 then a1:=0.2

else

a1:=0.11;

f:=SIN(a1*t)-EXP(2*a1*t)+b1;

writeln(t:8,f:16:4);

end;

end.

Початок

Ввід n,m

i=1,n

j=1,m

Ввід А[i,j]

i=1,n

j=1,m

Ввід B[i,j]

i=1,n

j=1,m

S[i,j]=A[i,j]+B[i,j]

i=1,m

j=1,l

k=1,n

C[i,j]=С[i,j]+А[k,i]*В[j,k]

i=1,n

j=1,m

Вивід С[i,j]

так х=1,y=1 ні

b2=C[x,y]

так C[x,y]<b2 ні

b2=C[x,y]

Вивід b2

Кінець

Задача.

Надрукувати порядково матрицю С і її мінімальний елемент.

Для вирахування матриці С використати стандартну підпрограму додавання матриць і складену підпрограму множення матриць.

1,2 0,7 2,6 4,5 -6,8 -1,2

А= 3,3 0,4 2,0 В= 3,8 0,5 0,8

1,7 1,5 -0,2 1,2 0,6 0,25

-30,61 23,73 10,62

С= -36,09 -21,05 -6,26

-12,68 6,68 3,34