Tyvj 1001 第K极值

题目：

 第k极值

来源：

 Tyvj 1001

题目大意：

 N个数，求第K小第K大的差值是否是质数，是则输出’yes’否则输出’no’,然后输出这  个数

数据范围：

 0<n<=10000，a[i]<=maxlongint

样例：

 5 2

 1 2 3 4 5

YES

2

做题思路：

 Qsort果断解决，判断第k个-第n-k+1个是否是质数

知识点：

 排序，判断质数

var a:array[0..100010]of longint; i,n,m:longint;procedure qsort(l,r:longint);var i,j:longint; k,t:longint;begin i:=l;j:=r; k:=a[(l+r) shr 1]; repeat while a[i]<k do inc(i); while a[j]>k do dec(j);  ifi<=j then  begin   t:=a[i];a[i]:=a[j];a[j]:=t;   inc(i);dec(j);  end; until i>j; ifi<r then qsort(i,r); ifj>l then qsort(l,j);end;function pd(x:longint):string;var i:longint;begin ifx<2 then exit('NO'); fori:=2 to trunc(sqrt(x)) do  ifx mod i=0 then exit('NO'); exit('YES');end;begin readln(n,m); fori:=1 to n do read(a[i]); qsort(1,n); writeln(pd(a[n-m+1]-a[m])); writeln(a[n-m+1]-a[m]);end.
题目来源：http://www.tyvj.cn:8080/Problem_Show.asp?id=1001
	
				
	
					   
Tyvj 1001 第K极值
	  	   
tyvj 1001 第K极值
	  	   
TYVJ 1001 第K极值
	  	   
【Tyvj】第k极值
	  	   
tyvj P1001:第K极值
	  	   
tyvj p1001- 第K极值
	  	   
tyvj  P1001 第k极值
	  	   
第K极值（Tyvj）
	  	   
【Tyvj P1001】第K极值
	  	   
|Tyvj|P1001 第K极值
	  	   
tyvj p1001- 第K极值[模拟]
	  	   
【Tyvj】P1001 第K极值【某下午刷水题系列】
	  	   
第k极值
	  	   
p1001 --- 第K极值
	  	   
Tyvj_P1001 第K极值
	  	   
第K极值
	  	   
P1001 第K极值
	  	   
P1001第K极值
	     		  
	  	   
颜色模板
	  	   
Map 迭代
	  	   
双向最长上升序列:TYVJ 1067 合唱队形
	  	   
RArray Sort Find等函数的使用
	  	   
无题--奇怪的几天
	  	   
Tyvj 1001 第K极值
	  	   
关于网管的概述
	  	   
富士通笔记本最新系统恢复方法——系统工具恢复
	  	   
无语
	  	   
Hosts文件
	  	   
操作系统内核子系统的协调工作
	  	   
Linux 下小技巧
	  	   
JSP入门
	  	   
学习网络知识