Работа с матрицами, Турбо Паскаль

[Dell2dimka]

Даны две матрицы А(М,М) и B(N,N). Вычислить значение функции Y=CX2+D, где C и D - суммы элементов главных диагоналей матриц A и B соответственно.

Если не трудно, то просьба писать с коментариями, я в этом деле полнейший чайник, чтобы я хотя бы что нибудь понял.. Зараннее спасибо.

[fenix-elite]

Если не трудно, то прочитай это, и тогда все станет ясно.

работа с матрицами

[RUSt88]

пиши на мыло, сделаю в кратчайшие сроки в лучшем виде

[Himka]

Значение X сам пользователь вводит?

[Dell2dimka]

X остается как обычная переменная, ее не надо трогать...т.е ответ будет примерно такой Y=56*X+25

[sir.andrey]

X остается как обычная переменная, ее не надо трогать...т.е ответ будет примерно такой Y=56*X+25

Принимайте

program matr;
var a,b:array [1..50,1..50] of integer;
    m,n,i,j,c,d:integer;
begin
c:=0; d:=0;
write (' vvedite razmernost matrici a m=');
readln (m);
write (' vvedite razmernost matrici a n=');
readln (n);
randomize; {inicializaciya generatora slychaynih chisel}
{pervaya matrica}
for i:=1 to m do begin
  for j:=1 to m do begin
                   a[i,j]:=random(9);
                   {prisvaivaem slechainoe chislo elementy}
                   write (a[i,j],' ');
                   {proveraem, esli esli element na glavnoy diagonali, to v
                                      peremennyu "c" zanosim ego znachenie}
                   if i=j then c:=c+a[i,j];
                   {raspechativaem ego naekran cherez probel}
                   end;
                 writeln;
                 end;
{vtoraya matrica}
for i:=1 to n do begin
  for j:=1 to n do begin
                   a[i,j]:=random(9);
                   write (a[i,j],' ');
                   if i=j then d:=d+a[i,j];
                   end;
                 writeln;
                 end;
writeln;
writeln ('znachenie fynkcii:y=',c*2,'x','+',d);
readln;
end.

Плиз жми на весы (в левом нижнем углу)

[Dell2dimka]

Спасибо, осталось только разобраться что к чему хоть и есть коментарии..