PROGRAM BILANGAN TERTINGGI DAN TERENDAH

program bilangan_tertinggi_terendah;


uses wincrt;


var a, data : integer;
nilai, total, tinggi, rendah : real;


begin
  total := 0;
  writeln('PROGRAM BILANGAN TERBESAR & TERENDAH');
  writeln('------------------------------------');
  writeln;
  write ('Jumlah bilangan yang dimasukkan : '); readln (data);
  writeln;
  for a := 1 to data do
  begin
    write ('Bilangan 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;


  writeln;
  writeln ('nilai terendah    : ', rendah :1:0);
  writeln ('nilai tertinggi   : ', tinggi :1:0);
end.