大贪心。

program Work;

var
  d:array[1..100]of longint;
  n,m,i,j,k,p:longint;
  s:string;

begin
  readln(n,m);
  fillchar(d,sizeof(d),0);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      read(k);
      if k>d[j] then d[j]:=k;
    end;
  end;
  k:=0;
  for i:=1 to m do k:=k+d[i];
  writeln(k);

  close(input);close(output);
end.