Source code Program Mencari Nilai Minimum & Maksimum :
Source code Program Mencari Nilai Minimum & Maksimum : program minmax; {$APPTYPE CONSOLE} uses SysUtils; var data :array[1..100] of integer; jlh_data :integer; max, min :integer; a :integer; begin (*Membersihkan Layar Console*) (*Input jumlah Data*) writeln('PROGRAM MENCARI NILAI MAXIMUM DAN MINIMUM'); writeln('========================================='); write('Masukkan jumlah Data : '); readln(jlh_data); writeln; (*Input nilai tiap Data*) for a := 1 to jlh_data do begin write...