Перемножение матриц

[Арина]

Народ, помогите. Вот засела задачка. Уже неделю думаю. И задача оч простая: даны 2 матрицы. Надо их перемножить.

[bill]

Я вот пробовал бы вот так:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:array[1..10,1..25]of integer; // берутся 3 один. матрицы и в с выводятся.
i,z:integer; s:string;
begin
randomize;
for i:=1 to 10 do begin
for z:=1 to 25 do
a[i,z]:=random(50);
b[i,z]:=random(50); // осуществляется ввод любого числа в матрицу - ф-ция random
end;
for i:=1 to 10 do begin
for z:=1 to 25 do
c[i,z]:=a[i,z]*b[i,z];
end;
for i:=1 to 10 do begin memo1.Lines.Add(s);s:=' ';// вывод значений как только идет переход на новую строку.
for z:=1 to 25 do
s:=s+inttostr(c[i,z])+' ';
end;
end;
end.

Это конечно зависит от того какой рандом я беру, т.к у inttostr есть свои ограничения. Вместо него можно попробовать взять ф-цию str .