Program Untuk Mencari Nilai Maksimum dan Minimum Data

const

  MaxData = 100;

var

    data : array[1..MaxData] of real;

    N : byte;

    i : byte;

    max : real;

    min : real;

begin

  write('Masukkan jumlah data : ');

  readln (N);

  for i := 1 to N do

  begin

    write('Data ke- ',i,': ');

    readln (data[i]);

  end;

  max :=data[1];

  min := data[1];

  for i := 2 to N do

  begin

    if (data[i] < min) then

    min := data[i];

    if (data[i] > max) then

    max := data[i];

  end;

  writeln('Data terkecil : ', min:1:3);

  writeln('Data terbesar : ', max:1:3);

  readln

end.