array uygulamasi

program av2
    implicit none
    real ,dimension(10) :: x
    real                :: average,sum
    integer             :: i
    print *, 'enter 10 numbers'
    sum=0.0
    do i=1,10
        read *, x(i)
        sum=sum+x(i) 
    end do
    average=sum/10
    print *, 'the average is ',average
    print *, 'the numbers are'
    print *,x
    end program av2