VBOARD - Bàn cờ

Tác giả: RR

Ngôn ngữ: Pascal

var
  i,j,n,m,x,y,u,v:longint;
  a,sum:array[0..1011,0..1011] of longint;

begin
  read(n);
  for i:=1 to n do
  for j:=1 to n do
    begin
      read(a[i,j]); if (i+j) and 1=1 then a[i,j]:=-a[i,j];
      sum[i,j]:=sum[i-1,j]+sum[i,j-1]-sum[i-1,j-1]+a[i,j];
    end;

  read(m);
  for i:=1 to m do
    begin
      read(x,y,u,v);
      writeln(abs(sum[u,v]-sum[x-1,v]-sum[u,y-1]+sum[x-1,y-1]));
    end;
end.

Download