Informatika (2 семестр) / 1 аттестация / матрицы

uses crt;
const n=100; { максимальная размерность матриц }
type matrica=array[1..n,1..n] of integer;
var vibor,i,j,k:byte;
w,s:integer;
a,b,c:matrica;

procedure OutMatr(m:matrica); { процедура вывода матрицы на экран }
var i,j:byte;
begin
writeln;
for j:=1 to w do
begin
for i:=1 to w do write(m[i,j]:5);
writeln;
end;
end;

begin
ClrScr;
Writeln('Введите размерность матрицы');
Write('-> ');
Readln(w);


{ инициализация матриц (случайными числами) }
randomize;
for i:=1 to w do
for j:=1 to w do
begin
a[i,j]:=random(w);
b[i,j]:=random(w);
end;

{ вывод матриц A и B}
writeln('A:');
OutMatr(a);
writeln('B:');
OutMatr(b);
Writeln;

{ вычисление произведения матриц }
for i:=1 to w do
for j:=1 to w do
begin
s:=0;
for k:=1 to n do s:=s+a[k,i]*b[j,k];
c[i,j]:=s;
end;
{ вывод результата }
writeln('a*b:');
OutMatr(c);
readln;
end.