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

Oleh      : 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..30] of string;
  umur    :  array[1..30] of integer;  
  i       :  Integer;
  jumtot  :  Integer;
  rata    :  real;
  max     :  Integer;
  lok_max :  Integer;
  min     :  Integer;
  lok_min :  Integer;
  

{deskripsi}
begin
  clrscr;

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

  clrscr;
     
  for i := 1 to i do
  begin     
     write('nama ke-',i,' : ');readln(nama[i]);
     write('umurnya   : ');readln(umur[i]);
     clrscr;     
  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('---------------------------------------');

  min := umur[1];
  max := umur[1];

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

  writeln('Nama : ',nama[lok_min],' merupakan Usia termuda dgn umur : ',umur[lok_min]);

  for i := 2 to i do
  begin
     if umur[i] > max then
     begin
        lok_max := i;
        max := umur[i];
     end;
  end;     
 
  writeln('Nama : ',nama[lok_max],' merupakan Usia tertua dgn umur  : ',umur[lok_max]);

  rata := jumtot/i;
  writeln('Rata-rata Umur adalah : ',rata:2:2);

end.
