Код
{&R-}
Program Umnoj2;
Const Max=25;
Var A,B,C: array [1..Max,1..Max] of integer;
i,j,k,n,m,b1,a1,l : integer; Summa: integer;
begin
randomize;
N:=15+random(10);
randomize;
k:=15+random(10);
randomize;
M:=15+random(10);
for i:=1 to n do
for j:=1 to k do
begin
randomize;
a1:=random(10);
A[i,j]:=a1;
end;
for i:=1 to k do
for j:=1 to m do
begin
randomize;
b1:=random(10);
B[i,j]:=b1;
end;
write;
writeln;
for i:=1 to k do
begin
for j:=1 to m do
write(A[i,j]:4);
end;
writeln('cl');
for i:=1 to n do
begin
for j:=1 to k do
write(B[i,j]:4);
writeln;
end;
for i:=1 to n do
for j:=1 to m do
begin
Summa:= 0;
for l:= 1 to k do
Summa:= Summa + A[i,l]*B[l,j];
C[i,j] := Summa;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(C[i,j]:6);
writeln;
end;
readln;
end.
есть такой код для умножения двух матриц, где столбцы, строки и заполнение массивов задается через random, проблема в том, что первый массив равен второму, и у первого массива слишком мало строк
Заранее спасибо
