Mencari Nilai Rata-Rata, Tertinggi Dan Terendah

Dibawah ini scripnya langsung dicoba aja ya. hhe

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.

Outputnya.

Selamat mencoba, Semoga bermanfaat.

sumber : Tugas kuliah.