Mam problem z rozszyfrowaniem jak konczą się pentle...
function MaksProstokąt(N,M:integer; var A:array[1..N,1..M] of integer) : integer;
// N, M >=0; szukamy maksymalnego pola prostokąta w A składającego się z samych zer
var i,j,maks,r,podstawa,wysokośc,pole, : integer;
B : array [0..N] of integer;
begin
maks:=0; //na maks będziemy pamiętać maksymalne pole dotychczas napotkanego prostokąta
B[0]:=0;
for i:=1 to N do //wypełniamy tablicę B zgodnie z pierwszym wierszem A
if A[i,1]=0 then begin
B[i]:=1
maks:=1;
end
else B[i]:=0;
for j:=2 to M do
for i:=1 to N do begin
if A[i,j]=0 then begin //modyfikujemy B[i]
B[i]:=B[i]+1;
else B[i]:=0;
podstawa:=1; //w pętli obliczamy maksymalne pole prostokąta zaczepionego prawym dolnym
wysokość:=B[i]; //rogiem w A[i,j]
pole:=B[i];
r:=i-1; ;
while B[r] <> 0 do begin //nie przekroczymy zakresu tablicy B bo B[0]=0
podstawa:=podstawa+1;
wysokość:=min(wysokość, B[r]);
pole:=max(pole, podstawa*wysokość);
end;
if pole > maks then maks:=pole;
end; //for i
MaksProstokąt:=maks;
end
w którym miejscu kończy się główna for(int i ... ) a w którym kończy się iteracja pentli j.
Podejrzewam ze przed MaksProstokat konczy sie duza penta i, w takim razie gdzie konczy sie wewnetrzna?