program leggo1
implicit none

! lettura a numero predefinito con vettore statico


integer, parameter :: idim=5
integer ::n,i
real, dimension(idim) :: x
real:: xm

read(5,*)n
if(n > idim)then
   write(6,*) 'errore :numero dati > ',idim
   stop
endif


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 leggo1