program hitung_min_max

program hitung_min_max;
uses crt;
var
nilaibing : array [1..100] of real;
namasiswa : array [1..100] of string;
rata2, nilaimin, nilaimax, jumlahnilai : real;
i, jumlahsiswa : integer;

begin
clrscr;
writeln (' Menghitung Nilai Siswa');
writeln;
jumlahsiswa := 0;
write   (' Masukan Jumlah Siswa    : '); readln(jumlahsiswa);
writeln;
for i := 1 to jumlahsiswa do
begin
write   (' Nama Siswa              : '); readln(namasiswa[i]);
write   (' Nilai B.Inggris         : '); readln(nilaibing[i]);
writeln;
end;

     nilaimax := nilaibing[i];
     nilaimin := nilaibing[i];

     jumlahnilai := 0;
for i := 1 to jumlahsiswa do
begin
     jumlahnilai := jumlahnilai+nilaibing[i];
     if nilaibing[i] > nilaimax then
        nilaimax := nilaibing[i];
     if nilaibing[i] < nilaimin then
        nilaimin := nilaibing[i]
end;
rata2 := jumlahnilai/jumlahsiswa;
writeln ('=================================');
writeln;
writeln (' Rata-rata               : ',rata2:0:0);
writeln (' Nilai Terbesar          : ',nilaimax:0:0);
writeln (' Nilai Terkecil          : ',nilaimin:0:0);
readln;
end.