Prosedur Menghitung Nilai Rata-rata N data bilangan bulat

Prosedur Menghitung Nilai Rata-rata N data bilangan bulat

procedure HitungRataRata(input N : integer, output u : real)
{ Menghitung rata-rata N buah bilangan bulat yang dibaca dari piranti masukan.}
{K.Awal : N sudah berisi banyaknya bilangan bulat, N>0.}
{K.Akhir : u berisi rata-rata seluruh bilangan }

DEKLARASI
x : integer { data bilangan bulat yang dibaca dari papan kunci }
k : integer { pencacah banyak bilangan }
jumlah : integer { jumlah seluruh bilangan }

ALGORITMA
jumlah <- 0 { inisialisasi }
for k <- 1 to N do
     read(x)
     jumlah <- jumlah + x
endfor
u<- jumlah/N