找数组中最多的元素以及其个数，为什么没有计算0的值

own2008

想了一个方法但是只找到了非0元素中最多的元素以及其个数，不太理解为什么

[Fortran] 纯文本查看 复制代码

!par20_ex7_t32
PROGRAM Vote32

! input constants
! N is the number votes
! M is maximum allowed number
INTEGER, PARAMETER :: N = 20, M = 4
INTEGER, PARAMETER :: seed = 42

! normal variables
INTEGER :: winner = 0, wincount = 0
INTEGER :: countnum_p = 0, countnum_n = 0

! votes is the input array
INTEGER, DIMENSION(N) :: votes
INTEGER, DIMENSION(-1:M) :: counts;

! init random number generator
i = RAND(seed)

! init votes
DO  i=1,N
    votes(i) = RAND() * (M+3) - 2;
END DO

WRITE(*,"(A,100I3)") 'Input is: ', votes

! TODO
! find which was most voted number

DO j=1,N-1
    countnum_p = count(votes == votes(j))
    countnum_n = count(votes == votes(j+1)) 
    if (countnum_n > countnum_p) then
        winner = countnum_n
        wincount = votes(j+1)
    else
        winner = countnum_p
        wincount = votes(j)
    END if
END DO


WRITE(*,*) 'Most votes was: ', wincount
WRITE(*,*) 'Winners were:   ', winner


END PROGRAM Vote32

own2008

仍然是在第31行开始，为什么没有统计到0的个数呢

own2008

我用了一种比较偷懒的方式，直接先计算0的个数然后最后再和这个比较，但还是不太明白这个count计数为什么没有把0算进去，求大佬解答一下

[Fortran] 纯文本查看 复制代码

INTEGER :: countnum_p = 0, countnum_n = 0, countnum_z = 0
if (countnum_z >winner) then
    winner = countnum_z
        wincount = 0
END if