Question

输入n个数，找出大于平均值的数和最小数 fortran语言编程及解释

Answer 1

      !
      implicit none
      integer,parameter:: n=10
      integer i
      real aver,u(n)

      open(11,file='data.txt')  ！读取数据
      do i=1,n
        read(11,*) u(i)
      end do
      close(11)

      aver=sum(u(1:n))/float(n)  ！求平均值

      print *,'min value=',minval(u(1:n))  ！输出最小值

      open(11,file='result.txt')
      do i=1,n
        if(u(i).gt.aver) then  ！判断是否大于平均值
          write(11,*) u(i) 
        end if
      end do
      close(11)

      stop
      end