来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/05/03 07:24:46
第K极值的解法pascal
描述 Description
给定一个长度为N(0
那个……
我是出题人……
也就是tyvj的admin……
首先用快速排序（因为号称数据是10W,悄悄告诉你……其实最大只有100……当时我们学校模拟赛,临时出的数据,所以……）
我贴个标程吧
var
a:array[0..100001] of longint;
i,j,k,n,max,min:longint;
function su(x:longint):boolean;
var i:longint;
begin
if x
作业帮