mencari nilai deviasi standar dari n buah kata [array]

Fungsi std(input x:array[1--10] of integer, n:integer, rata:real):real
{diberikan n data kemudian dicari rata-ratanya}
deklarasi
i,jumlah:integer
deskripsi
jumlah <- 0
for i <- 1 to n do
jumlah <- jumlah + sqrt(x[i]-rata)
endfor
std<- sqrt(jumlah/(n-1))

flowchartnya: