program leggo1din
implicit none

! lettura a numero predefinito con vettore dinamico


integer ::n,i
real, allocatable,dimension(:) :: x
real:: xm

read(5,*)n
allocate (x(n))

do i=1,n
   read(5,*)x(i)
   write(6,*) i,x(i)
enddo

write(6,*) 'Letti ',n,' dati'
xm=0
do i=1,n
   xm=xm+x(i)
enddo
xm=xm/n
write(6,*) 'media=',xm

end program leggo1din