讨论 / 求助,,不知道那里有问题!!
胡晓行 2011-03-25 03:04:00
点我顶贴 收藏 删除
program jiankaolaoshi;

var a:array[1..100000000,1..100] of longint;

b,c:array[1..10000000] of longint;

m,n,x,y,j,k,l,i,s,t,q,w,e:longint;

begin

readln(n,m);

s:=0;t:=0;

for j:=1 to n do

for i:=1 to m do

read(f1,a[i,j]);

for k:=1 to n do

for l:=1 to m do

b[k]:=b[k]+a[l,k];

for x:=1 to m do

for y:=1 to n do

c[x]:=c[x]+a[y,x];

for x:=1 to m do

for k:=1 to n do

begin s:=b[k]+c[x];

if s>t

then t:=s;

end;

q:=t;

writeln(q);

end.

非常感谢!!!

查看更多回复
提交回复