pascal 第K极值

var a:array[1..10000] of longint;
n,m,i,j,k:longint; boo:boolean;
function panduan(q:longint):boolean;
begin
if q=1 then begin panduan:=false; exit; end;
if q=2 then begin panduan:=true; exit; end;
panduan:=true;
for i:=2 to trunc(sqrt(q)) do
if q mod i=0 then panduan:=false;
end;
procedure sudu(l,r:longint);
var i,j,x,y:longint;
begin
i:=l; j:=r; x:=a[(i+j)div 2];
repeat
while a[i]<x do inc(i);
while x<a[j] do dec(j);
if i<=j then begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
inc(i); dec(j);
end;
until i>j;
if l<j then sudu(l,j);
if i<r then sudu(i,r);
end;
begin
read(n,m);
for i:=1 to n do read(a[i]);
sudu(1,n);

极值问题 pascal pascal问题:【暴力】数字K pascal的第26个错误是什么？ 爱第三天 320k pascal ????? 什么是极值？ 函数极值 极值原理? 为什么turbo pascal的第15个问题老是出现？？ 唱K小鱼仙第二部主题曲!