胡晓行 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.
非常感谢!!!