Program Array Pascal

Listing Program

uses crt;

var

 x : array [1..100] of integer;

 n,i,max,min : integer;

begin

 clrscr;

 writeln('  Program Array Pengurutan Data');

 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 maximum : ',max);

  writeln('Nilai Minimum : ',min);

  readln;

 end.

Logika Program

Program ini dibuat untuk mengurutkan data dan menentukan nilai minimum dan nilai maksimum.

pertama menggunakan perintah "uses crt" untuk memanggil program selanjutnya. kemudian tentukan elemen yaiu [1..100] artinya data ini mulai dari 1 sampai 100. n,a,max, dan min sebagai integer. setelah selesai lakukan pengimputan dan pengoutputan data seperti  scrib di atas. kemudian jalankan program.

Input dan Output Program