Ъ_Ъ

Программа, перемножения двух матриц. При написании крайне опасна для жизни.

program ex1;
const
n=2;
m=3;
q=4;
var
a:array [1..m,1..n]of integer;
b:array [1..n,1..q]of integer;
c:array [1..m,1..q]of integer;
i,j,r,s:integer;
begin


for i:=1 to m do for j:=1 to n do
                                     begin
                                     a[i,j]:=random(10);
                                     end;
for i:=1 to n do for j:=1 to q do
                                     begin
                                     b[i,j]:=random(10);
                                     end;

 for i:=1 to m do
 begin
 for j:=1 to n do

     write (a[i,j]:4);
     writeln;
 end;
 writeln ('*');
  for i:=1 to n do
 begin
 for j:=1 to q do
     write (b[i,j]:4);
     writeln;
 end;
 writeln ('=')   ;
   //
for i:=1 to m do
    for j:=1 to q do
    begin
        for r:=1 to n do s:=s+a[i,r]*b[r,j];
        c[i,j]:=s;
       s:=0;
    end;


 //
  for i:=1 to m do
 begin
 for j:=1 to q do
write (c[i,j]:4);
     writeln;
 end;
end.

Ваш, вспомнивший былое, автор