Var a: array[0..1000, 0..1000] of integer; n, l, s, maxs, max: longint;
begin for var i := 1 to 1000 do for var j := 1 to 1000 do a[i, j] := 0; maxs := 0; read(n); read(l); for var i := 1 to n do for var j := 1 to l do begin read(a[i, j]) end; s := 0; for var i := 1 to n do begin for var j := 1 to l do s := s + a[i, j]; if (s > maxs) then begin maxs := s; max := i; end; s := 0; end; writeln(max);end.