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帮忙改改

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