program ak; uses crt; var a,n,jumlah_nilai : integer; nilai : array [1..10] of integer; nilai_rata : real; begin clrscr; writeln ('======================='); writeln (' program aku '); writeln ('======================='); writeln; write ('masukkan banyak data =');readln(n); for a := 1 to n do begin write ('nilai ke- ',a,' = ');readln (nilai[a]); end; writeln; nilai_rata := 0; jumlah_nilai := 0; for a := 1 to n do begin jumlah_nilai := jumlah_nilai + nilai[a]; writeln ('nilai ke- ',a,' = ',nilai[a]); end; nilai_rata := jumlah_nilai / n; writeln ('hasil nya'); writeln ('================================='); writeln ('jumlah nilai : ',jumlah_nilai); writeln ('nilai rata rata : ',nilai_rata:5:2); readln; end.
0 komentar:
Posting Komentar