Обработка двумерного массива

[Alex_SS]

Здравствуйте! Не могли ли вы помочь решить такую задачку, а то я не соображаю.

Задан двухмерный массив вещественных чисел. Необходимо каждый элемент соответствующей строки разделить на сумму элементов этой строки.

Заранее спасибо!

[Naeel Maqsudov]

Допустим уже есть матрица A[M,N], M-столбцов, N-строк
(как заполнить матрицу данными найтиде в похожих темах)

Код: Выделить всё

for i:=1 to N do begin
  {сначала ищем сумму i-й строки}
  s:=A[1,i];
  for j:=2 to M do S:=S+A[j,i];
  {теперь делим}
  for j:=1 to M do A[j,i]:=A[j,i]/S;
end;