讨论 / 为什么是40分?
任昊 2013-08-31 15: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.

#1 李书乐@2013-08-29 16:47:00
回复 删除
沙发
#2 hwy2013@2013-08-30 12:02:00
回复 删除
发错题了吧

题目输出的是字符串,不是数字,应该不是这题

#3 任昊@2013-08-31 15:49:00
回复 删除
回复 板凳hwy2013 的帖子

可是能过4组呀,你确定错了么

查看更多回复
提交回复