Screenshot Program
 

                          Gambar 1. Input Jumlah Data








                              Gambar 2. Input Seluruh Data





                              Gambar 3. Input Nilai yang ingin dicari


                              Gambar 4. Output Hasil Pencarian



Source Code

uses crt;

var pil:char;

    lg :char;

type  arrint = array [1..100] of integer;

var tabint : arrint;

    x,n,i,indeks,max,min,maks : integer;

function seqsearch1(xx : integer): integer;

  var i : integer;

  begin

    i := 1;

    while ((i<n) and (tabint[i] <> xx)) do

      i:=i+1;

      if tabint[i] = xx then

        seqsearch1:=i

        else

        seqsearch1:=0;

  end;

function maksimum (tabint: arrint; n : integer) : integer;

  var i, max : integer;

  begin

   for i:=2 to n do

   if max<tabint[i] then

   max:=tabint[i];

   maksimum:=max;

  end;

function minimum (tabint: arrint; n : integer) : integer;

  var i, min : integer;

  begin

   for i:=1 to n do

   if min>tabint[i] then

   min:=tabint[i];

   minimum:=min;

  end;

begin

  clrscr;

  writeln;

  write('Masukkan Jumlah Data = '); readln(n);

  writeln;

  Clrscr;

  for i:=1 to n do

    begin

       write('   Data[',i,'] = '); readln(tabint[i]);

     end;

  

 writeln;

        write ('  Nilai yang dicari : '); readln(x);

    indeks:=seqsearch1(x);

      if indeks <> 0 then

      write ('  Nilai : ',x,' ditemukan pada indeks ke-',indeks)

       else

      write('   Nilai : ',x,'tidak ditemukan !');

      writeln;

    writeln;

    maks:=maksimum(tabint,n);

    min:=minimum(tabint,n);

    writeln;

    writeln ('  Nilai maksimum : ',maks);

    writeln ('  Nilai minimum  : ',min);

    readkey;

 end.