51问答网 > 通过键盘输入随机数种子,产生50个[0,100]之间的随机正整数,然后输出其中所有的奇数？

通过键盘输入随机数种子,产生50个[0,100]之间的随机正整数,然后输出其中所有的奇数？

2024-12-21 21:48:49

推荐回答（1个）

回答1：

以fortran语言为例。代码如下，供参考。（感叹号后面是说明）
! 定义变量
integer n,m,i
real x
! 读取一个整数，并作为随机数种子
read(*,*) m
call seed(m)
! 产生50个0到100的随机整数
do i=1,50
call random(x)
n=101*x
！若除以2余数为1，则输出（奇数）
if(mod(n,2).eq.1) write(*,*) n
end do
end