fortran随机数哪位用frotran能帮着写一下列出1000个随机整数，并求出1000个随机数中奇数的个数。的程序万分感激，感激涕零

Question

fortran 随机数哪位用frotran能帮着写一下 列出1000个随机整数，并求出1000个随机数中奇数的个数。 的程序 万分感激，感激涕零

Answer 1

program main implicit none integer::i,count,m real::x call random_seed() do i=1,1000 call random_number(x) m=int4(x*1000) if(mod(m,2)==1) count=count+1 end do print*,count end