pascal编程已知数组a中含n个整型元素，求a中有多少个最大数？多少个次大数？多少个不相同数？求大师解答

pascal编程已知数组a中含n个整型元素，求a中有多少个最大数？多少个次大数？多少个不相同数？求大师解答

① 代码：
program array_stat;
    procedure sortArray(var arr : array of integer);
    var
        min, i, j, temp: Integer;
    begin        
        for i := low(arr) to high(arr)-1 do
        begin
            min := i;
            for j := i+1 to high(arr) do 
                if arr[j] < arr[min] then 
                    min := j;

            temp := arr[i]; arr[i] := arr[min];    arr[min] := temp;
        end;        
    end;
var 
    n, i, m : Integer;
    a : array of Integer;
begin
    readln(n);
    setlength(a, n);
    for i := low(a) to high(a) do read(a[i]);
    
    sortArray(a);
    writeln('');
    m := 1;    
    for i := high(a)-1 downto low(a) do 
    begin
        if (a[i] <> a[i+1]) then begin writeln(m); m := 1 end
        else begin inc(m); dec(n); end;
    end;
    writeln(m);
    writeln(n);
end.② 运行：
7
5 4 6 3 2 6 9

1
2
1
1
1
1
6

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息