program mittelw
c	Program zur Ermitllung des Mittelwertes einer beliebigen Anzahl
c       von Werten 

	
        integer num, i
        real x(50), xm
        
        write (*,*) 'Anzahl x'
        read (*,*) num
        
        xm=0.0
       
        do i=1,num,1
           write (*,*) 'x(',i,')='
           read (*,*) x(i)
           xm=xm+x(i)
        enddo

        xm=xm/num

        write (*,*) 'Mittelwert=' , xm
		
 	end