Program extrime sort (Mencari nilai maksimum)

1. Source code
    
    program extrim_search;
uses crt;
type
  arrint = array [1..100] of integer;
var
  maks   : integer;
  tabint : arrint;
  nn, i  : integer;
  function maksimum(tabint : arrint; n : integer) : integer;
  var
    i   : integer;
    max : integer;
  begin
    for i:=1
     to n do
      if max< tabint[i] then
        max:= tabint[i];
    maksimum:=max;
  end;

begin
  clrscr;
  writeln('^^^ PENCARIAN DATA DENGAN EXTREME SEARCH ^^^');
  writeln;
  write('Input Banyaknya Elemen = '); readln(nn);
  writeln;
  for i:= 1 to nn do
    begin
      write('Elemen ke-',i,' = '); readln(tabint[i]);
    end;
  maks:= maksimum(tabint, nn);
  writeln;
  writeln('Nilai Maksimumnya Adalah : ',maks);
writeln;
readln;
end.


2.    Screenshot Program



1.1 Tampilan Utama
 
    Gambar 1. Perintah input benyaknya elemen

1.2  Output banyaknya elemen
 
    Gambar 2. Input banyak elemen

1.3 Input Elemen-elemen
 
    Gambar 3. Output elemen-elemen

 
1.4 Tampilan akhir
 
    Gambar 4. Nilai maksium