Uses wincrt;
Var
a, siswa : Integer;
nilai, total, tinggi, rendah, rata : real;
Begin
total := 0;
write ('Jumlah Siswa :'); readln (siswa);
writeln;
for a := 1 to siswa do
Begin
write ('Nilai Siswa ke ',a,' : '); readln (nilai);
total := total + nilai;
if a = 1 then begin
tinggi := nilai;
rendah := nilai;
end
else begin
if nilai > tinggi then tinggi := nilai
else begin
if nilai < rendah then rendah := nilai;
end;
end;
end;
rata := total / siswa;
writeln;
writeln ('Nilai Terendah : ',rendah :1:2);
writeln ('Nilai Tertinggi : ',tinggi :1:2);
writeln ('Rata-Rata : ',rata :1:2);
end.
Selamat mencoba, Semoga bermanfaat.
sumber : Tugas kuliah.
0 komentar:
Terima kasih sudah memberi komentar,
komentar anda sangat berguna untuk menjadikan blog ane lebih baik lagi..
jangan lupa berkunjung kembali..