RT~~~即例如输入:1 1 1 2 2 2 4 5 6就输出:1 2就是说,在一堆数,出现次数最高的数就是众数

有大概的源程序吗?说起来很容易,当初我接同学的这个任务时也是这样说~~~

var a,total,f,sum:array [1..50] of integer; d:real; i,j,max,k,n,c,b,z,h,l,u:integer; s:array [1..50] of string;begin writeln('how many numbers?'); readln(n); for i:= 1 to n do begin writeln('input data'); readln(a[i]); end; for i:= 1 to n-1 do for j:= i+1 to n do begin if a[i]
} writeln('zhongshu is ',total[1],' ','times is ',total[2]+1); readln;end.

这是我自己写的,不过有缺陷:如果是2 2 1 1 的话,只会输出2而且还有很多缺陷,请个为GGJJ帮忙改改

Var a: Array[1..50]Of Integer; b: Array[1..30000]Of Integer; d: Array[1..30000]Of Integer; i, j, max, m, n: Integer;Begin n := 0; While Not EoF Do Begin Inc(n); ReadLn(a[n]); End; For i:=1 To n Do Inc(b[a[i]]); max := b[1]; m := 1; d[1] := 1; For i:=2 To 30000 Do If max < b[i] Then Begin m := 1; d[1] := i; max := b[i]; End Else If max = b[i] Then Begin Inc(m); d[m] := i; End; For i:=1 To m Do Write(d[i]:2); WriteLn; ReadLn;End.

楼上的~~ 不行啊~~~~不断的读数,输入了一大堆,都没见输出啊~~