Czy ktoś wie jaki jest błąd?
Kod: Zaznacz cały
program macierze;
var M : array[1..10,1..10] of integer;
i, j, x : integer;
blad, znajdz : boolean;
begin
{ Losowanie elementow macierzy posortowanych wierszowo i kolumnowo }
randomize;
i := 1;
j := 1;
x := 100;
while (i <= 10) do
begin
while (j <= 10) do
begin
M[i,j] := random(200) + 1;
if (M[i,j] >= x then M[i,j] := M[i,j] - x;
blad := false;
if (i >= 2) then if (M[i-1,j] >= M[i,j]) then blad := true;
if (j >= 2) then if (M[i,j-1] >= M[i,j]) then blad := true;
if (blad = false) then
begin
j := j + 1;
x := x - 1;
end;
end;
i := i + 1;
j := 1;
end;
x := random(200);
i := 1;
j := 10;
znajdz := false;
while (znajdz = false) AND (i <= 10) AND (j >= 1) do
begin
if (M[i,j] = x) then znajdz
else
begin
if (M[i,j] < x) then j := j - 1
else i := i + 1
end
end;
if znajdz then writeln('TAK') else writeln('NIE');
end.