Mencari Bilangan Terendah dan Tertinggi Pascal

Pada Program Mencari Bilangan Terendah dan Tertinggi ini, saya menggunakan Array.

Berikut adalah salah satu contoh Program :

• Program Array;
• 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.

Ingin lihat scriptnya download disini :

Download