w122185976 2009-01-14 03:30:00
点我顶贴
收藏
删除
var
h,l:array[1..100]of longint；
a:longint；
n1,n,m,i,j,ans:integer；
begin
fillchar(h,sizeof(h),0)；
fillchar(l,sizeof(l),0)；
readln(n,m)；
ans:=0；
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a)；
if a=1
then begin
inc(h[i])；
inc(l[j])；
end；
end；
readln；
end；
for i:=1 to n do
for j:=1 to m do
if h[i]+l[j]>ans
then ans:=h[i]+l[j]；
write(ans)；
end.
这个A了.
var
h,s:array[0..150]of longint；
max,a,n,m,i,j,x,y:longint；
begin
read(n,m)；
fillchar(h,sizeof(h),0)；
fillchar(s,sizeof(s),0)；
for i:=1 to n do
for j:=1 to m do
begin
read(a)；
if a=1
then begin
inc(h[i])；
inc(s[j])；
end；
end；
max:=0；
for i:=1 to n do
for j:=1 to n do
if h[i]+s[j]>max
then max:=h[i]+s[j]；
write(max)；
end.
这个没A.