Fortran中如何计算级数的众数

Question

如何使用 Fortran 计算级数的众数？

例如：

1,2,2,3,3,3,4,4,5
Mode = 3

Answer 1

如果您的数字已排序（正如它们看起来的那样），则伪代码很简单：

set maxval to -1
set maxcount to -1
set count to -1
set lastval to list[0] - 1
for every val in list:
    if val is not equal to lastval:
        if count is greater than maxcount:
            set maxval to lastval
            set maxcount to count
        set count to 0
        set lastval to val
    set count to count plus one
if maxcount is not equal to -1:
    print "mode is " maxval " with count of " maxcount

请记住，如果有多个，这将仅返回第一个模式。

Answer 2

如果您需要的话，您可以在那里找到已经编写的代码，并且它不仅仅是一个练习；例如
维基 Rosettacode.org 上的模式。如果是练习，请首先尝试遵循其他答案中给出的算法。