giúp mk vs ạ mk xắp nộp r!!!!!!

Ý tưởng là dùng prefix sum 2d, bạn có thể tham khảo qua đây www.geeksforgeeks.org/prefix-sum-2d-array/

uses crt;
var n,i,j,k,t,t2,x,y:longint;
    a:array[1..1000,1..1000] of longint;
function max(a,b:int64):int64;
begin
 if a>b then
  max:=a else max:=b;
end;
begin
 readln(n);
  for i:=1 to n do
   for j:=1 to n do
    readln(a[i,j]);
   t2:=0;
   for i:=1 to n do
    for j:=1 to n do
     for k:=1 to n-max(i,j)+1 do
      begin
           t:=0;
           for x:=i to i+k-1 do
            for y:=j to j+k-1 do
             if a[x,y]>0 then
              t:=t+a[x,y]
               else
              break;
              if t>t2 then
               t2:=t;
      end;
      if t2>0 then
       writeln(t2);
readln;
end.