MENCARI NILAI MAKSIMAL DAN MINIMAL DENGAN PASCAL

uses crt;

var
 pil:string[3];
 n,m,nilai:integer;
 data:array [1..100] of integer;

begin
  clrscr;
  write('Pilihan :');readln(pil);

  if pil='max' then
    begin
      {menunggu entry banyaknya data}
      write('n:');readln(m);

      {putaran sebanyak m kali}
      for n:=1 to m do
      begin
        write('data[',n,']=');readln(data[n]);
      end;

      {proses mencari nilai max}
      nilai:=data[1];  {diisi data paling awal}
      for n:=1 to m do
      begin
        if nilai<data[n] then
          nilai:=data[n];
      end;
      write('nilai max=',nilai);
    end
  else
    begin
      {menunggu entry banyaknya data}
      write('n:');readln(m);

      {putaran sebanyak m kali}
      for n:=1 to m do
      begin
        write('data[',n,']=');readln(data[n]);
      end;

      {proses mencari nilai max}
      nilai:=data[1];  {diisi data paling awal}
      for n:=1 to m do
      begin
        if nilai>data[n] then
          nilai:=data[n];
      end;
      write('nilai min=',nilai);
    end;
  readln;
end.