Tugas Menghitung rata-rata menggunakan array

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.

Outpot

Menghitung rata-rata 10 buah nilai

Nilai=

9

Nilai=

5

Nilai=

6

Nilai=

8

Nilai=

9

nilai=

7

nilai=

5

nilai=

4

nilai=

7

nilai=

9

Jumlah = 69.00

Rata-rata= 6.90