PROGRAM Ortalama
!--------------------------------------------------------
! 09prg01.f95
! 10 sayının aritmetik ortalaması
!--------------------------------------------------------
INTEGER, PARAMETER :: N = 10
REAL :: X(N), Toplam = 0.0, Ort
INTEGER :: k

  PRINT *,"Ortalaması hesaplanacak ",N," sayı girin"

  DO K = 1, N

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

  END DO

  Ort = Toplam/N

  PRINT *,"Sayıların ortalaması: ",Ort

END