program average
real:: x(10),sumx,avg
integer::i
write(*,*)"Enter x(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