Практикум по решению задач на ЭВМ. Тарова И.Н - 74 стр.

                                  Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


const k=3;
 const m=4;
const l=5;
var i,j,n:integer;s,p:real;a:array[1..k,1..m] of real; b:array[1..m,1..l]of real;
c:array[1..k,1..l] of real;
begin
   writeln('vvedite matrix a[k,m]');
   for i:=1 to k do
     for j:=1 to m do
       read(a[i,j]);
   writeln('vvedite matrix b[m,l]');
   for i:=1 to m do
      for j:=1 to l do
          read(b[i,j]);
       for i:=1 to k do
         for n:=1 to l do
          begin
            s:=0;
            for j:=1 to m do
              begin
               p:=a[i,j]*b[j,n];
               s:=s+p;
              end;
            c[i,n]:=s;
           end;
          writeln ('vivod matrix c');
          for i:=1 to k do
            begin
             for j:=1 to l do
             write(c[i,j]:6:2);
             writeln;
            end;
            readln;
        end.




                                        74