李一恒 2009-02-04 23:54:00
点我顶贴
收藏
删除
var a:array[1..100,1..100] of 0..1；
b,i,j,k,s,max:longint；m,n:0..100；
begin
readln(n,m)；
for i:=1 to m do begin
for j:=1 to n do
read(a[i,j])；
readln；end；
for i:=1 to m do
for j:=1 to n do begin
b:=0；
for k:=1 to m do b:=b+a[j,k]；
for k:=1 to n do b:=b+a[i,k]；
if b>max then max:=b；
end；
write(max)；
end.
#1 小小小学生@2009-02-04 23:54:00
10285
回复
删除
1 你的M 和 N换过来了
2 在2个K的循环语句里面 数组的角标里的K没换过来
我的程序如下
program li；
var n,m,i,j,k,t,max:longint；
a:array[1..1000,1..1000] of integer；
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
t:=0；
for k:=1 to m do if a[i,k]=1 then t:=t+1；
for k:=1 to n do if a[k,j]=1 then t:=t+1；
if t>max then max:=t；
end；
write(max)；
end.
去年刚学写的 有点累赘~原谅下。呵