PersonalCorpus 版 (精华区)

寄信人: No (hi)
标  题: 1100
发信站: 哈工大紫丁香 (2002年03月12日22:24:10 星期二)
来  源: mtlab4.hit.edu.cn 

160646 14:26:29 12 Mar 2002
Bozhang,HIT,P.R.China 1100 Pascal Accepted 0.65 sec 798K


var
    a:array[1..150000] of integer;
    b:array[1..150000] of byte;
    i,j,k,n:integer;
begin
    readln(n);
    for i:=1 to n do readln(a[i],b[i]);
    for i:=100 downto 0 do for j:=1 to n do if b[j]=i then writeln(a[j],' ',
b[j]);
end.

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]
--
※ 转寄:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: mtlab4.hit.edu.cn]