murkovich
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
falconsnegus
Цитата:| Народ , никак не могу въехать в задачу... " В заданном массиве А[I,J] состоящем из 0 и 1 найти подмассив максимальной размерности состоящий из 0." |
В условиях перепутан размер и размерность.
Но, если это проигнорировать, то примерно так:
Код: var maxrazmer, maxx1, maxy1, maxx2, maxy2: integer;
x1,y1,x2,y2, etotrazmer: integer;
function VseNoli(l, t, r, b: integer): boolean;
begin
...
end;
maxrazmer := 0;
for x1 := 1 to I do
for x2 := x1 + 1 to I do
for y1 := 1 to J do
for y2 := y1+1 to J do begin
if VseNoli(x1,y1,x2,y2) then begin
etotrazmer := (x2-x1+1)*(y2-y1+1);
if etotrazmer > maxrazmer then begin
maxrazmer := etotrazmer;
maxx1 := x1; maxx2 := x2; maxy1 := y1; maxy2 := y2;
end;
end;
end;
|
|
