Cod sursa(job #1125577)
Utilizator | Pintea codrina codrina_91 | Data | 26 februarie 2014 18:30:11 |
---|---|---|---|
Problema | Teren | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.64 kb |
var n,m,i,j,u,k,l:integer;
x,arie,amax:longint;
a,b:array[0..300,0..300] of longint;
f:text;
begin
assign(f,'teren.in');reset(f);
readln(f,n,m,x);
for i:=1 to n do
for j:=1 to m do begin
read(f,u);
{ a[i,j]:=u;}
b[i,j]:=b[i-1,j]+b[i,j-1]-b[i-1,j-1]+u;
end;
close(f);
for i:=1 to n do
for j:=1 to m do
for k:=i to n do
for l:=j to m do
if (b[k,l]-b[i-1,l]-b[k,j-1]+b[i-1,j-1]>x) then break
else begin
arie:=(k-i+1)*(l-j+1);
if arie>amax then amax:=arie
end;
writeln(amax);
end.