Uses wincrt;

var nilai : array [1..10] of integer ;

jm,rata : real;

begin

clrscr ;

writeln(‘menghitung rata-rata 10 buah nilai’);

writeln(‘nilai =’);readln(nilai [1] );

writeln(‘nilai =’);readln(nilai [2] );

writeln(‘nilai =’);readln(nilai [3] );

writeln(‘niali =’);readln(nilai [4] );

writeln(’nilai =’);readln(nilai [5] );

writeln('nilai =');readln(nilai[6]);

writeln('nilai=');readln(nilai[7]);

writeln('nilai=');readln(nilai[8]);

writeln('nilai=');readln(nilai[9]);

writeln('nilai=');readln(nilai[10]);

jm := nilai[1]+nilai[2]+nila[3]+nilai[4]+nilai[5]+nilai[6]+nilai[7]+nilai[8]+nilai[9]+nilai[10];

rata:= jm/10;

writeln;

writeln(‘jumlah =’,jm :9:2);

writeln(‘rata-rata =’,rata :9:2);

end.

Output

Menghitung rata-rata 10 buah nilai

Nilai=

3

Nilai=

9

Nilai=

6

Nilai=

12

Nilai=

9

Nilai=

3

Nilai=

5

Nilai=

8

nilai=

7

nilai=

4

Jumlah =66.00

Rata-rata= 6.60