【Excel求助】分类汇总求众数 寻找众数 pascal

【Excel求助】分类汇总求众数

在一类中，找出重复次数最多的
或
C1=INDEX(A:A,SMALL(IF(MATCH(A$1:A$8,A$1:A$8,)=ROW(A$1:A$8),ROW(A$1:A$8),4^8),ROW(A1)))&""
D1=MODE(IF($A$1:$A$8=C1,$B$1:$B$8,""))

 
 
数组公式 同时按CTRL  SHIFT  回车键

寻找众数 pascal

楼上说的都是对的，这是自己打的代码，帮你实现出来了，参考一下。。
var i,j,n,max,maxn:longint
a:array[1..200000]of 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 i := i 1
while x < a[j] do j := j - 1
if i <= j then
begin
y := a[i] a[i] := a[j] a[j] := y
i := i 1 j := j - 1
end
until i > j
if l < j then Sort(l, j)
if i < r then Sort(i, r)
end
begin
readln(n)
for i:=1 to n do
read(a[i])
a[n 1]:=maxlongint
sort(1,n)
i:=0
repeat
inc(i)
for j:=i 1 to n 1 do
if a[j]<>a[i] then break
if maxnelse if (maxn=j-i)and(a[i]>max) then max:=a[i] i:=j-1 until i>=n writeln(max, ,maxn) end.