programmm mittel
* das programm berechnet den mittelwert von 5 eingegebenen werten
real mess1,mess2,mess3,mess4,mess5,mwert,vari,stand
write(*,*) 'Geben sie den ersten Messwert ein'
read(*,*) mess1
write(*,*) 'Geben sie den zweiten Messwert ein'
read(*,*) mess2
write(*,*) 'Geben sie den dritten Messwert ein'
read(*,*) mess3
write(*,*) 'Geben sie den vierten Messwert ein'
read(*,*) mess4
write(*,*) 'Geben sie den fuenften Messwert ein'
read(*,*) mess5

mwert = (mess1+mess2+mess3+mess4+mess5)/5.0
vari = ((mess1-mwert)**2+(mess2-mwert)**2+(mess3-mwert)**2+(mess4-
1mwert)**2+(mess5-mwert)**2)/4
stand = sqrt(vari)

* ausgabe messwerte
write(*,*) 'messwert1= ',mess1
write(*,*) 'messwert2= ',mess2
write(*,*) 'messwert3= ',mess3
write(*,*) 'messwert4= ',mess4
write(*,*) 'messwert5= ',mess5

* ausgabe mittelwert
write(*,*) 'Der Mittelwert ist ',mwert
write(*,*) 'Die Varianz ist ',vari
write(*,*) 'Die Standardabweichung ist ',stand
end