码迷,mamicode.com
首页 > 其他好文 > 详细

第K大数

时间:2014-07-21 10:11:12      阅读:238      评论:0      收藏:0      [点我收藏+]

标签:style   blog   http   color   os   数据   

控制数据箱(box.c/cpp/pas)
【题目大意】
现在给你一个数据箱,支持以下操作,加入元素,第 n
次查询操作求当前情况下的第 n 大数。比如说,第 3 次查
询操作求第三小的数。当然查询操作的给出方式有些特
殊,只是给出一个数字,表示在加入第几个元素后进行查
询。
【输入数据】
第一行,n,m
第二行n 个数,表示需要依次插入的数
第三行m 个数,表示在插入第几个数后进行操作
【输出数据】
对于每个操作,输出答案
【输入样例】
7 4
3 1 4 2 8 1000 2
1 2 3 7

【输出样例】

3
3
4
3【数据范围】
对于 30%的数据,1<=n<=10000, 1<=m<=100
对于100%的数据, 1<=n<=200000, 1<=m<=10000

---------------------------

m<=10000!!!!!!

插入排序不错^ ^  不过标算是两个堆,平衡树什么的还是不会啊。YM说数据太弱了插入排序都可以。。。。

bubuko.com,布布扣
var
  a,rn,rm:array[1..200001]of longint;
  i,n,m,en,st,k,now:longint;
procedure cha(x:longint);
var next,j:longint;
begin
  if i>m then next:=m+1 else next:=i;
  a[next]:=x;
  for j:=next-1 downto 1 do
    if x<a[j] then
      begin
        a[j+1]:=a[j];
        a[j]:=x;
      end
    else break;
end;
begin
  assign(input,box.in);  assign(output,box.out);
  reset(input);  rewrite(output);
  read(n,m);
  for i:=1 to n do read(rn[i]);
  for i:=1 to m do read(rm[i]);
  st:=1;
  for k:=1 to m do
    begin
      st:=en+1;
      en:=rm[k];
      for i:=st to en do cha(rn[i]);
      writeln(a[k]);
    end;
  close(input);  close(output);
end.
View Code

第K大数,布布扣,bubuko.com

第K大数

标签:style   blog   http   color   os   数据   

原文地址:http://www.cnblogs.com/zjhl2/p/3855991.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!