(*Write a program to store six numbers in an array and find the minimum number of this array. *)

(* Techniques : Comparison of all the elements in an array.  Let the first element  to be stored in an 
                temporary identifier. Compare the identifier with all the elements by incrementing the array using a 
                FOR loop. *) 
{* Winnie Leung  F.4CA  (22)  *}
Program Minimum_num;
uses wincrt;
var
    n:array [1..6] of integer;
    min,i:integer; 
Begin
      n[1]:=36;n[2]:=15;n[3]:=83;
      n[4]:=67;n[5]:=93;n[6]:=78;
      min:=n[1];
      for i:=1 to 6 do
         if n[i]<min then
            min:=n[i];
         writeln('The minimum number is ',min)
End.