第K极值的解法pascal
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/22 12:28:01
第K极值的解法pascal
描述 Description
给定一个长度为N(0
描述 Description
给定一个长度为N(0
![第K极值的解法pascal](/uploads/image/z/19962701-53-1.jpg?t=%E7%AC%ACK%E6%9E%81%E5%80%BC%E7%9A%84%E8%A7%A3%E6%B3%95pascal)
那个……
我是出题人……
也就是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
我是出题人……
也就是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