a:數組【0..100000】的字符串；
n、m、t、I、j:longint；
s:字符串；
p:布爾型；過程KP（I，j:longint）；定義變量
l，r:longint；
mid:字符串；開始
l:= I；
r:= j；
mid:= a【（I+j）div 2】；重復
而a【I】& lt；mid do公司（壹）；而a【j】》；十二月中旬；如果我& lt=j那麽
開始
a【0】:= a【I】；
a【I】:= a【j】；
a【j】:= a【0】；
inc（壹）；
第十屆會議；結束；直到我& gtj；如果我& ltj則KP（l，j）；如果我& ltr那麽KP（I，r）；結束；過程JB（I，j:longint）；定義變量
k:longint；開始
如果我& gtj然後退出；
k:=（I+j）div 2；如果a【k】= s，則
開始
p:= true；退出；結束；如果s & lta【k】則JB（I，k-1）else JB（k+1，j）；結束；開始
readln（n）；for I:= 1 to n do readln（a【I】）；
KP（1，n）；
readln（m）；對於j:=1到m do
開始
readln
p:= false；
JB（1，n）；if p then writeln（‘是’）else writeln（‘否’）；結束；結束。
完整回答，請收下，謝謝！