Тогда до кучи алгоритм от партизана
## Код:
```
VAR
   arr: ARRAY N, M OF INTEGER;
   i, k: INTEGER;
   find,found: BOOLEAN;
BEGIN
   i := 0;  k := 0;
   find := TRUE;
   WHILE find DO
       found := arr [i, k] = x;
       IF found THEN
          find:=FALSE;
       ELSEIF i<N-1 THEN 
            INC (i)
       ELSEIF k<M-1 THEN 
            INC (k); i:=0
       ELSE
            find:=FALSE
       END
   END
END
```
