PROGRAM Ortalama
!--------------------------------------------------------
! 09prg02.f95
! 10 sayının standart sapması ve ortalaması
!--------------------------------------------------------
INTEGER, PARAMETER :: N = 10
REAL :: X(N), Std_Sap, Toplam, Ort
INTEGER :: k

  PRINT *,N," adet sayı girin"

  ! önce aritmetik ortalama hesaplanıyor
  Toplam = 0.0
  DO K = 1, N

   READ *,X(K)
   Toplam = Toplam + X(K)

  END DO

  Ort = Toplam/N

  ! şimdi standart sapma hesaplanıyor
  Toplam = 0.0
  DO K = 1, N
    Toplam = (Ort - X(K))**2
  END DO

  Std_Sap = SQRT(Toplam/(N-1))

  PRINT *,"Ortalama : ",Ort
  PRINT *,"Standart sapma: ",Std_Sap

END