删除

【题目描述】

现在，我的 上有 n 个数字，分别是 a₁; a₂; a₃; :::; a_n。 我现在需要删除其中的 k 个数字。当然我不希望随随便便删除，我希望删除 k

数字之后，剩下的 n   k 个数中有最多的不同的数

【输入格式】

第 两个正整数 n 和 k，含义如题 描述。 接下来  ，有 n 个 负整数，分别是 a₁ 到 a_n。

【输出格式】

共  ， 个整数 ans，表   删除了 k 个数字后最多的不同的数的个数。

【样例输入】

4 1

1 3 1 2

【样例输出】

3

【样例解释】

如果删去第 个 1: 在［3，1，2］中有 3 个不同的数 如果删去 3:

在［1，1，2］中有 2 个不同的数 如果删去第 个 1: 在［1，3，2］中有 3 个不同的数

【解题思路】

排序去重什么的，然后判断一下有木有比k大，大概就是这个样子

program del;
var a:array[0..100000] of longint;
     i,j,n,k,ans:Longint;
 procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
begin
    assign(input,'del.in'); reset(input);
    assign(output,'del.ans'); rewrite(output);
    read(n,k);
    ans:=n;
    for i:=1 to n do read(a[i]);
    sort(1,n);
    for i:=1 to n do
    begin
        if a[i]=a[i-1] then
        begin
            if k>0 then dec(k);
            dec(ans);
        end;
    end;
    writeln(ans-k);
    close(input);
    close(output);
end.