Advertisement
Guest User

Untitled

a guest
Aug 27th, 2015
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.57 KB | None | 0 0
  1. program vanopan;
  2. uses crt;
  3. var
  4.   a, b: array[1..100000] of longint;
  5.   n, k, l, r, mid, x, i : longint;
  6.  
  7. begin
  8.   read(n, k);
  9.   for i := 1 to n do
  10.     read(a[i]);
  11.   for i := 1 to k do
  12.     read(b[i]);
  13.   for i := 1 to k do
  14.     begin
  15.       l := 1;
  16.       r := n + 1;
  17.       x := b[i];
  18.       while r - l > 1 do
  19.         begin
  20.           mid := (r + l)div 2;
  21.           if a[mid] > x then
  22.             r := mid
  23.           else
  24.             l := mid;
  25.         end;
  26.       if a[l] = x then
  27.         writeln('YES')
  28.       else
  29.         writeln('NO');
  30.     end;
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement