(*----------------------------------
Program   :  array_umur_2.pas

Pemrogram : Bimo Awang Yudha
Dibuat tgl: 15 Juli 2004
------------------------------------ *)

program array_2;
{program untuk membuat daftar nama beserta umurnya dalam bentuk tabel
yang kemudian dicari nama dengan umur termuda dan tertua, lalu
dihitung rata-rata dari jumlah umur keseluruhan,
semua input/nilai dimasukkan melalui keyboard}

{deklarasi}
uses
  WinCrt;

var
  nama    :  array[1..50] of string;
  umur    :  array[1..50] of integer;  
  i       :  Integer;
  j       :  integer;
  jumtot  :  Integer;
  max     :  Integer;
  lok_max :  Integer;
  min     :  Integer;
  lok_min :  Integer;

{deskripsi}
begin
  clrscr;

  write('Masukkan Jumlah Data yg akan diinput (Maks=50) = ');
  readln(i);

  clrscr;
     
  for i := 1 to i do
  begin     
     write('nama ke-',i,' : ');readln(nama[i]);
     write('umurnya   : ');readln(umur[i]);
     clrscr;     
  end;

  min := umur[1];


  while (j < i) do
  begin     
     if umur[i] < min then
     begin
        lok_min := i;
        min := umur[i];        
     end;
     j := j + 1
  end;
  
  max := umur[1];

  for i := 2 to i do
  begin     
     if umur[i] > max then
     begin
        lok_min := i;
        max := umur[i];
     end;
  end;

  writeln('---------------------------------------');
  writeln('| No. |        Nama       |    Umur   |');
  writeln('---------------------------------------');
  for i := 1 to i do
  begin
     writeln('|',i:2,'   | ',nama[i]:15,'   |     ',umur[i]:2,'    |');
     jumtot := jumtot + umur[i];
  end;
  writeln('---------------------------------------');

  writeln('');
  writeln('Nama : ',nama[lok_min],' merupakan Usia termuda dgn umur : ',umur[lok_min]);
  writeln('Nama : ',nama[lok_max],' merupakan Usia tertua dgn umur  : ',umur[lok_max]);
  writeln('Rata-rata Umur adalah : ',jumtot/i:2:2);

end.