百度作业网pascal:第K极值
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/05/29 01:30:07
pascal:第K极值
给定一个长度为N(0
给定一个长度为N(0
总的来说,本题的思路还是比较清楚的.
首先,我们对读入的数据进行排序,得到从小到大的N个数.那么第K小的数就是这一串数中的第K个数,第K大的数就是第N-K+1,也就是倒数第K个数,相减得到差.再判断质数即可.
var
a:Array[0..10010] of longint;
i,t,n,k:longint;
procedure qsort(r,l:longint);
var
i,j,mid,t:longint;
begin
i:=r; j:=l;
mid:=a[(i+j)>>1];
repeat
while a[i]mid do j:=j-1;
if ij;
if i
首先,我们对读入的数据进行排序,得到从小到大的N个数.那么第K小的数就是这一串数中的第K个数,第K大的数就是第N-K+1,也就是倒数第K个数,相减得到差.再判断质数即可.
var
a:Array[0..10010] of longint;
i,t,n,k:longint;
procedure qsort(r,l:longint);
var
i,j,mid,t:longint;
begin
i:=r; j:=l;
mid:=a[(i+j)>>1];
repeat
while a[i]mid do j:=j-1;
if ij;
if i