任昊 2013-08-31 00:49:00
点我顶贴
收藏
删除
var i,j,n,k,m,max:longint;a:array[1..100,1..100]of integer;
d,l:array[1..100]of longint;
b:array[1..100,1..100]of longint;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]=1 then inc(d[i]);
if a[j,i]=1 then inc(l[j]);
end;
for i:=1 to m do
for j:=1 to n do
b[i,j]:=d[i]+l[j];
max:=0;
for i:=1 to m do
for j:=1 to n do
if max<b[i,j] then max:=b[i,j];
write(max);
end.