作业帮 > 综合 > 作业

pascal 有n个正整数,n

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/06 18:21:24
pascal 有n个正整数,n
pascal 有n个正整数,n
var i,n,k,t:longint;
a:array[1..3000]of boolean;
begin
readln(n,k);
fillchar(a,sizeof(a),false);
for i:=1 to n do begin
readln(t);
a[t]:=true;
end;
t:=0;
for i:=1 to 3000 do
if a[i] then begin inc(t);if t=k then writeln(i);end;
end.
{直接手打的,不过应该没什么问题了,发邮箱至lzoi_jcr1@126.com,记得加备注,像一楼那种,其实看到数据那么水,没必要再排序了}