Source Code Program Sort Nilai Min_Max
Source Code Program Sort Nilai Min_Max Dibuat menggunakan Tools Delphi7 , dalam rangka penyelesaian tugas MK. Pemrograman Dasar STIKOM Al-Khairiyah Cilegon dengan Dosen Bpk. Berri Prima,S.Kom tahun 2018. Diposting sebagai dokumentasi dan berbagi wawasan tentang dasar pemrograman. program ProjectSortNilai; {$APPTYPE CONSOLE} uses SysUtils; const maks=5; type bil = array[1..maks] of integer; var bill:bil; i, a, b, j, n : Integer; avrg : real; begin { TODO -oUser -cConsole Main : Insert code here } {Input element Array} writeln(''); writeln(' ======================================'); writeln(' PROGRAM SORTING, MIN MAX DAN RATA-RATA'); writeln(' ======================================'); for i := 1 to maks do begin write(' Masukkan Nilai Ke ',i,' : '); readln(bill[i]); {PROSEDUR PENUMLAHAN NILAI INPUT} j := bill[i] + j; end; avrg := j div 5; write