program TugasAlgo4;
uses Crt;
var
i, CurrentNilai, NilaiTerkecil, NilaiTerbesar, JumlahSiswa : integer;
NilaiRataRata : real;
BEGIN
write('Masukan jumlah siswa : '); readln(JumlahSiswa);
{ Initial State }
NilaiRataRata := 0;
for i := 1 to JumlahSiswa do
begin
write('Masukan nilai siswa ke ', i, ' : '); readln(CurrentNilai);
if i = 1 then
begin
NilaiTerkecil := CurrentNilai;
NilaiTerbesar := CurrentNilai;
end
else
begin
if CurrentNilai > NilaiTerbesar then
NilaiTerbesar := CurrentNilai;
if CurrentNilai < NilaiTerkecil then
NilaiTerkecil := CurrentNilai;
end;
NilaiRataRata := NilaiRataRata + CurrentNilai;
end;
NilaiRataRata := NilaiRataRata / JumlahSiswa;
writeln();
writeln('Nilai Terkecil : ', NilaiTerkecil);
writeln('Nilai Terbesar : ', NilaiTerbesar);
writeln('Nilai Rata-rata : ', NilaiRataRata:2:2);
writeln();
writeln('Masukan sembarang tombol untuk keluar ...');
readkey();
END.
Comments
0 B
|👍
/👎
0 B
|👍
/👎