ПАСКАЛЬ! умножение k-ой строки исходной матрицы на сумму элементов главной диагонали

[wrmarw]

помогите, пожалуйста, составить такую программу!

Ввести матрицу А размером m*n. Умножить к-ю строку исходной матрицы на сумму элементов главной диагонали.

честно признаюсь, я в этом полный ноль! помогите, пожалуйста!

[Grag]

Если M<>N, то будь добр, покажи мне "главную диагональ" в такой матрице...
Если очень нужно, обращайся, элементарно...
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[wrmarw]

ок, без проблем, тогда пусть будет квадратная матрица, т. е. n*n

[Stilet]

Ввести матрицу А размером m*n. Умножить к-ю строку исходной матрицы на сумму элементов главной диагонали.

С потолка:

const m=4;n=5;
var a:array[1..m,1..n] of integer;
i,j,sm,k:integer;
begin
 for i:=1 to m do begin
  for j:=1 to m do begin
    a[i,j]:=random(20); write(a[i,j]:5);
    if (j=i+abs(m-n)-1) then sm:=sm+a[i,j];
  end;writeln;
 end;
 k:=3;
  for j:=1 to m do begin
    a[k,j]:=a[k,j]*sum; write(a[k,j]:5);
  end;writeln;
end.

Сразу предупреждаю, точно не помню формулы вычисления координат главной диагонали в неквадратной матрице, но помню что в методе было что-то похожее

[wrmarw]

спасибо большое, но есть одна маленькая проблемка! программу нужно оформить в виде процедуры

[wrmarw]

ну, кто-нибудь отзовитесь!!!