Как рассчитать режим серии в Фортране

Question

Как рассчитать режим ряда с помощью Фортрана?

Например:

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

Answer 1

Вы можете найти уже созданный код там, если он вам нужен, и это не просто упражнение; например Режим на вики rosettacode.org . Если это упражнение, попробуйте сначала следовать алгоритму, приведенному в другом ответе.

Answer 2

Если ваши номера отсортированы (как они выглядят), псевдокод прост:

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

Имейте в виду, что это вернет только режим first , еслиих больше одного.