Yuk bantu teman kamu belajar dengan menambahkan soal di Kujawab. Klik disini..

Olimpiade Sains Provinsi (OSP) 2011 - Komputer , Nomor 28

28

Perhatikan potongan program berikut:

var
nilai : array[1..10] of integer = (1,7,9,23,12,6,12,7,8,10);

function rata2(n: integer):real;
var
  sum:real;
begin
  i:=1;
  sum := 0;
  repeat
    sum := sum+nilai[i];
  until (i=n);
  rata2:=sum/n;
end;

Berapakah nilai yang dikembalikan jika dilakukan pemanggilan fungsi rata2(10)?