我觉得是对的.
经过自己思考和编写代码不单止有成功感,也积累了解决问题的经验.

最简单的算法：step 1 ：产生[0,1)之间的随机数 x
              step 2 : x <--- x*(21-7)+ 7,  则，x是[7,21)均匀分布的浮点数
              step 3 : int(x)  则 int(x)是[7,20]上均匀分布的整数

      program main
 integer i
 do 10 i=1,20
 call random
 floor(x*(20-13+1)+13)
 write(*,*)x
10 continue
 end

 subroutine  random
 implicit none
 real x
      call random_seed()
 call random_number(x)
 end
楼主按照你的方法没实现。。。。。。