Membuat Program Array Tutorial Ke 2 - GLOBAL KOMPUTER TELUK KUANTAN

Berikut rumus membuat program pascal menggunakan array.
Tutorial Ke 2

Program Array2;
Uses crt;
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);
readln;
End.

Semoga bermanfaat, jangan lupa comment nya juga ya sobat blogger..???
Terima kasih.