FRQ 2010-10-29 23:27:00
点我顶贴
收藏
删除
program rq138;
var n,m,i,j,x,m1,m2:longint;
a,b:array[1..100]of longint;
begin
readln(m,n);
for i:=1 to m do
begin
for j:=1 to n do
begin
read(x);
if x=1 then begin inc(a[i]);inc(b[j]);end;
end;
readln;
end;
for i:=1 to n do
if a[i]>m1 then m1:=a[i];
for j:=1 to m do
if b[j]>m2 then m2:=b[j];
writeln(m1+m2);
end.
第九个点
正确答案 49
错误答案 46
#1 wtta@2010-09-22 20:10:00
17469
回复
删除
给分吧~~~
var
t,s,s1,n,m,i,j,sdf:longint;
a:array[1..100,1..100] of longint;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
readln;
end;
s:=0;
for i:=1 to n do
begin
t:=0;
for j:=1 to m do
t:=t+a[i,j];
if t>s then s:=t;
end;
s1:=0;
for j:=1 to m do
begin
t:=0;
for i:=1 to n do
t:=t+a[i,j];
if t>s1 then s1:=t;
end;
s:=s+s1;
writeln(s);
end.