Program MENGHITUNG_NILAI_RATA_RATA

{Menghitung nilai rata-rata sekumpulan bilangan bulat yang dibaca dari pirnati keluaran}

{* DEKLARASI *}

Var

X         : integer;         { peubah data bilangan bulat }

N         : integer;         { banyaknya data bilangan bulat, N > 0 }

K         : integer;         { pencacah jumlah pengulangan }

Jumlah : integer;         { jumlah seluruh data bilangan bulat }

Rata     : real;               { rata-rata data bilangan bulat }

{* DESKRIPSI *}

Begin

      Write(‘ Masukkan jumlah data : ‘); Readln (N);       {baca banyak data}

K := 1;                                                                         {mulai dari data pertama}

Jumlah := 0;

While K <= N do

      Begin

                  Write(‘X = ‘); Readln (X);

                  Jumlah := Jumlah + X;

                  K := K + 1;                              {cacah pengulangan selanjutnya}

End;

{K > N}

Rata := Jumlah/N;                               {rata-rata data bilangan bulat}

Writeln (‘Rata-rata seluruh data = ‘, Rata);

End.