Program Ex1;
const n=10;
type matrix= array [1..n, 1..n] of real;
var a,b,c:matrix;
i,j,k:integer;
Begin
randomize;
for i:= 1 to n do //перебор строк
for j:= 1 to n do //перебор столбцов
a[i,j]:= random (10);
Writeln ('matrix A');
for i:=1 to n do begin
for j:= 1to n do
write(a[i,j]:8:2);
writeln('');
end;
for i:= 1 to n do //перебор строк
for j:= 1 to n do //перебор столбцов
b[i,j]:= random (10);
Writeln ('matrix B');
for i:=1 to n do begin
for j:= 1to n do
write(b[i,j]:8:2);
writeln('');
end;
for i:=1 to n do
for j:=1 to n do begin
c[i,j]:=0;
for k:=1 to n do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
end;
writeln('matrix C');
for i:=1 to n do begin
for j:= 1to n do
write (c[i,j]:8:2);
writeln;
end;
end.