没错这是我的处女贴！！大神看过来.....看过来........

program p1002;
var
n,k,i,p,t,j,m:integer;
a:array[0..10000]of integer;
f:boolean;
begin
readln(n,k);
for i:=1 to n do
read(a[i]);
for i:= 1 to n-1 do
begin
p:=1;
for j:=i+1 to n do
if a[p]>a[j] then p:=j;
t:=a[i]; a[i]:=a[p]; a[p]:=t;
end;
m:=a[k]-a[n-k+1];
f:=true;
if m<=2 then writeln('YES')
else for i:=2 to m div 2 do
if m mod i=0 then f:=false;
if (f)and(m>2) then writeln('YES');
if f=false then writeln('NO');
write(m);
end.

全是wrang answer

大神大神快快来，求不沉

if m<=2 then writeln('YES')？？ 是NO 吧

if m<2 then writeln(‘NO’);

顶

顶

m的值也错了，然而金币已用光，看不到测试数据，
lz
无能啊啊

写作业去了

一个快排.........前后找一下第k大（小）的数........