program olah_array (versi ke-2)

program olah_array;
uses wincrt;
var i,n, total: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);
end.