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

[Nikitagur]

Решите плиз!!!
Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти строку с наибольшей суммой элементов и увеличить все элементы этой строки на 1. (В конце программы оставте номер своего телефона и укажите оператора- пришлю вознаграждение)

[Naeel Maqsudov]

пусть i - строки, j-столбцы

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

For i:=1 to N do begin
  S:=0;
  for j:=1 to m do S:=S+A[i,j];
  if i=1 then begin
    SMax:=S;
    MaxRow:=1;
  end else begin
    if S>SMax then begin
      SMax:=S;
      MaxRow:=i;
    end;
  end;
next;
//тут  MaxRow- это строка с максимальной суммой
For j:=1 to m do A[MaxRow,j]:=A[MaxRow,j]+1;