Lưu ý: Các code mẫu dưới đây chỉ mang tính tham khảo và có thể không AC được bài tập này

Code mẫu của flashmt

var a:array[1..1001,1..1001] of longint;
    n,k,i,t,x,y,l,r:longint;
begin
     read(n,k);
     for x:=1 to n do
         for y:=1 to n do
             read(a[x,y]);
     for i:=1 to k do
     begin
          read(t);
          x:=1; y:=n;
          while a[x,y]<>t do
                if a[x,y]<t then inc(x)
                else dec(y);
          writeln(x,' ',y);
     end;
end.

Code mẫu của ladpro98

var     a:array[1..1000,1..1000] of longint;
        k,n,i,j,p,v:longint;
begin
       readln(n,k);
       for i:=1 to n do for j:=1 to n do read(a[i,j]);
       for p:=1 to k do begin
                read(v);i:=n;j:=1;
                while a[i,j]<>v do begin
                        if a[i,j]<v then inc(j)
                        else dec(i);
                end;
                writeln(i,' ',j);
       end;
end.

Code mẫu của RR

var
  x,n,kk,k,i,j:longint;
  a:array[1..1000,1..1000] of longint;
procedure find(var i,j:longint);
begin
  i:=n; j:=1;
  while true do
    if a[i,j]=x then exit
    else if a[i,j]>x then dec(i)
    else inc(j);
end;
begin
  read(n,k);
  for i:=1 to n do
  for j:=1 to n do
    read(a[i,j]);
  for kk:=1 to k do
    begin
      read(x);
      find(i,j);
      writeln(i,' ',j);
    end;
end.

Code mẫu của ll931110

Program NSP;
  Var
    a: array[1..1000,1..1000] of longint;
    n,k,i,j,u,v: integer;
    s: longint;

Begin
  Readln(n, k);
  For i:= 1 to n do
    For j:= 1 to n do read(a[i,j]);

  For i:= 1 to k do
    Begin
      Readln(s);
      u:= 1;
      v:= n;

      While a[u,v] <> s do
        if a[u,v] > s then dec(v) else inc(u);

      Writeln(u, ' ', v);
    End;
End.

Code mẫu của khuc_tuan

#include <stdio.h>
#define F(i,n) for(i=1;i<=n;++i)
struct S { int i,u,v; S * n; };
S * l[11234567], *p;
S cc[11234567];
int main() {
    int n, k, i, j, x, t, nc=0;
    scanf("%d%d", &n, &k);
    F(i,n) F(j,n) { 
        scanf("%d", &x);
        p = cc+nc++;
        p->i = x;
        p->u = i;
        p->v = j;
        p->n = l[x%11234567];
        l[x%11234567] = p;
    }
    F(t,k) {
        scanf("%d", &x);
        for(p=l[x%11234567];p!=NULL;p=p->n)
            if(p->i==x) {
                printf("%d %d\n", p->u,p->v);
                break;
            }
    }
    return 0;
}