Процедура

[giv93]

Как разработать процедуру, которая для матрицы m*n возвращает вектор-строку, сумма элементов которой наибольшая?

[rubius2008]

const m=4; n=5;
type
  matrix=array [1..n,1..m] of integer;
  vector=array [1..m] of integer;

procedure getvector(a:matrix;var s:vector);
var i,j,sum,max:integer;
begin
   imax:=1; max:=0; for j:=1 to m do max:=max+a[1,j];
   for i:=2 to n do begin
      sum:=0; for j:=1 to m do sum:=sum+a[i,j];
      if sum>max then begin
         imax:=i; max:=sum;       
      end;
   end;
   for j:=1 to m do s[j]:=a[imax,j];
end;