来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/16 16:12:56
第K极值 pascal
program kth;
var
a:array[1..10000] of longint;
k,i,j,n,m,h:longint;
procedure qsort(s,t:longint);
var
i,j,x,temp:longint;
begin
i:=s;j:=t;x:=a[(i+j) div 2];
repeat
while a[i]x do dec(j);
if ij;
if s
大师作文网