Паскаль. Делфи(Консоль). Произведение матриц

[Doublefaced]

Найти матрицу C(n,m) как произведение суммы заданных матриц A(n,m), B(n,m), и матрицы Z(n,m).

Помогите пож-та. Завтра сдавать.

[StudentPolitech]

задаёшь 2 переменные целочисленного типа одна значение по столбцу, другая по строке,
начинаешь считывать одновременно сначала по строке, потом по столбцу
for(i=0;i<n;i++)
{for(j=0;j<n;j++)
а дальше наоборот
for(j=0;j<n;j++)
{for(i=0;i<n;i++)
считываешь одно значение в переменную, потом вторую и меняешь

[Doublefaced]

как это в общем виде, помогите.

[Doublefaced]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
const n=3;
var
a,b,z,c:array[1..n,1..n]of integer;
i,j:integer;

begin
Writeln('Matrica A:');
for i := 1 to n do
for j := 1 to n do
begin
Write('a[', i, ',', j,'] : ');
Readln(a[i, j]);
end;

begin
Writeln('Matrica B:');
for i := 1 to n do
for j := 1 to n do
begin
Write('b[', i, ',', j,'] : ');
Readln(b[i, j]);
end;

begin
Writeln('Matrica Z:');
for i := 1 to n do
for j := 1 to n do
begin
Write('z[', i, ',', j,'] : ');
Readln(z[i, j]);
end;

Writeln('Matrica C:');
For i:=1 to n do
begin
For j:= 1 to n do
begin
a[i,j]:=a[i,j]+b[i,j];
c[i,j]:=a[i,j]*z[i,j]; Примерно здесь
write(c[i,j]:4);
end;
readln;
end;
end;
end;
end.

Помогите исправить ошибку с перемножением, я туплю в общем!

[ОДИНОЧЕСТВО В СЕТИ]

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

[Doublefaced]

Как матрицы умножаются вы мне напомнили, но как сделать это в программе?

[spamer]

Вот писал как то умножение двух матриц:

[Doublefaced]

Сообщение от spamer

Вот писал как то умножение двух матриц:

С формами не знаком!

[MaTBeu]

Сильно много требуешь. Тема закрыта.