program average   
! this program calculate the average 
! of 10 numbers
real::x(10),sumx,avg
write(*,*)'enter 10 numbers'
read(*,*)(x(i),i=1,10)


sumx=0
do i=1,10
    sumx=sumx+x(i)
end do
avg=sumx/10

write(*,*)"The average is:", avg


end program average