Program Array2

Program Array2;
Uses Wincrt;
Var x : array [1..100] of integer;
    n,i,max,min : integer;
Begin
  Writeln('Program Array');
  Writeln('=============');
  Writeln;
  Write('Masukkan Jumlah Data: ');readln(n);
  Writeln;Writeln('Data Harus Urut');
  For i:= 1 to n do
    Readln(x[i]);
  Writeln;
  Write('Data Yang Telah Dimasukkan: ');

  max:=x[1];
  min:=x[1];
  For i:= 1 to n do
    Begin
      Write(x[i],'   ');
      if (max<x[i]) then
        max:=x[i]
      else
        min:=x[i];
    End;
  Writeln;
  Writeln('Nilai Maximal: ',max);
  Writeln('Nilai Minimal: ',min);
End.
Outputnya: