Giới thiệu về Hệ sinh thái số IELP

IELP xin chào các bạn,
     Hệ sinh thái IELP là nơi để các bạn đam mê lập trình giao lưu và học tập.
Bạn hãy Đăng ký thành viên của IELP để có được nhiều thông tin hữu ích cho mình nhé.
Chúc bạn nhiều điều tốt lành, thành công và hạnh phúc!

BQT.

uses math;
var
A : array [-1..300,-1..300] of longint;
h,c : array [-1..100006] of longint;
t,tt,i,n,m,j,res : longint;
const
fi = 'ARR2REC2.inp';
fo = 'ARR2REC2.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(m,n);
for i := 1 to m do
for j := 1 to n do
read(a[i,j]);
end;
begin
doc;
for i := 1 to m do
begin
t := 0;
for j := 1 to n do t := t + A[i,j];
h[i] := t;
end;
for j := 1 to n do
begin
tt := 0;
for i := 1 to m do tt := tt + a[i,j];
c[j] := tt;
end;
res := low(longint);
for i := 1 to m do
for j := 1 to n do
res := max(res,h[i]+c[j]-a[i,j]);
write(res);
close(input);
close(output);
end.