решить задачку о поиске "прямоугольников" с нулевыми элементами в матрице

[vadikUA]

Дана целочисленная матрица [ai j ]
i=1 ,..., n ; j=1 ,..., m .
Прямоугольником в этой матрице будем называть множество всех
элементов aij , для которых выполнено 1 ≤ p ≤ i ≤ q ≤ n,1 ≤ r ≤ j ≤ s ≤ m,
где p, q, r, s - натуральные числа, задающие прямоугольник.
Площадью прямоугольника назовем число элементов в нем.
Среди прямоугольников матрицы, состоящих целиком из нулей, найти
тот, который имеет наибольшую площадь.
я сделал код для одного прямоугольника в котором все элементи равны 0. А что делать если таких несколько не знаю.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const n=5;
  m=5;
  type
  mas=array [1..n,1..m] of integer;
  var i,j,pl,p,q,r,s:integer;
  a:mas;
  begin
for i:=1 to n do
for j:=1 to m do
begin
readln(a[i,j]);
end;
readln(p,q,r,s);
pl:=0;
for i:=1 to n do
begin
if (1<=p) and (p<=i) and (i<=q) and (q<=n) then
begin
for j:=1 to m do
if (1<=r) and (r<=j) and (j<=s) and (s<=m) then
begin
if a[i,j]=0 then
pl:=pl+1;
end;
end;
end;
writeln(pl);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Utkin]

Мутная задача какая-то. В матрице только нули или еще что-то будет?

[vadikUA]

в матрице любые числа. Но прямоугольник должен состоять только из нулей. И таких прямоугольников может быть много. И все они находятся внутри прямоугольника, который задается вот так 1 ≤ p ≤ i ≤ q ≤ n,1 ≤ r ≤ j ≤ s ≤ m

[Serge_Bliznykov]

реально мутненькая задача.

во-первых, один прямоугольник задаётся (оператор вводит) натуральными числами p, q, r, s. А несколько прямоугольников как задаются?

во-вторых, допустим, есть массив с набором элементов
p1, q1, r1, s1, p2, q2, r2, s2 ... pX, qX, rX, sX

Тогда в чём проблема найти те из них, которые состоят ЦЕЛИКОМ из нулевых элементов? Или есть проблема с тем, чтобы найти "площадь" прямоугольника? Или проблема с тем, как из этих "нулевых" прямоугольников найти тот, что имеет максимальную площадь?!

[vadikUA]

проблема как раз в том чтобы найти площадь этих прямоугольников.

[Serge_Bliznykov]

Сообщение от vadikUA

проблема как раз в том чтобы найти площадь этих прямоугольников.

шутите?

площадь равна:

P:=(g-p+1)*(s-r+1);