PersonalCorpus 版 (精华区)

148276 11:15:41
28 Feb 2002 Bozhang,HIT,P.R.China 1026 Pascal Accepted 0.05 sec 278K


var
    s:array[1..5000] of integer;
    a:array[1..100000] of word;
    i,j,k,n:integer;
    t:string;
begin
    readln(n);
    fillchar(s,sizeof(s),0);
    for i:=1 to n do begin readln(j); inc(s[j]) end;
    j:=0; for i:=1 to 5000 do for k:=1 to s[i] do begin inc(J);a[j]:=i end;
    readln(t);
    readln(k);
    for i:=1 to k do begin readln(j); writeln(a[j]) end;
end.