Tugas Algo

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.