mencari rata-rata dari n bilangan bulat [array]

rata-rata dari n bilangan bulat dengan menggunakan array
Fungsi rata(input x:array [1..10] of integer, n:integer):real
{diberikan n databkemudian dicari rata-ratanya}

deklarasi
 i, jumlah: integer
deskripsi
jumlah <-0
for i <- 1 to n do
jumlah<-jumlah +x[i]
endfor
rata<-jumlah/n

flowchartnya: