Obarvený kód souboru matrix.pas

const
        n               = 5;

type
        matrix          = array[0..n,0..n] of integer;

var     i,j,k           : integer;
        a,b,c           : matrix;

procedure showmatrix(m:matrix);
var a,b : integer;
begin
        for a:=0 to n-1 do
        begin
                for b:=0 to n-1 do
                        write(m[a,b],'  ,');
                writeln;
        end;
        writeln;
end;

procedure setmatrix(var m:matrix;start:integer);
var a,b : integer;
begin
        for a:=0 to n-1 do
                for b:=0 to n-1 do
                        m[a,b]:=a*n+b+start;
end;

procedure mulmatrix(a,b:matrix;var c:matrix);
var i,j,k,s : integer;
begin
        for i:=0 to n-1 do
                for j:=0 to n-1 do
                begin
                        s:=0;
                        for k:=0 to n-1 do
                                s:=s+a[i,k]*a[k,j];
                        c[i,j]:=s;
                end;
end;

begin
        setmatrix(a,1);
        setmatrix(b,2);
        showmatrix(a);
        showmatrix(b);
        mulmatrix(a,b,c);
        showmatrix(c);
        readln;
end.

created by PaJa