[Fortran] 纯文本查看 复制代码
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
! 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
winner = maxval(votes, dim=1, mask=(votes>0))
DO j=1,N
if (votes == winner) then
wincount = wincount + 1
END DO
!wincount = find(votes, winner)
!WRITE(*,*) 'Most votes was: ', wincount
WRITE(*,*) 'Winners were: ', winner
END PROGRAM Vote32