Bài tập 5.5 Viết chương trình cho phép nhập n số và cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy. a.Hướng dẫn

Viết chương trình cho phép nhập n số và cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy.

• 
  Dùng biến n để lưu lượng số cần nhập.
  
• 
  Dùng mảng để lưu các số vừa nhập.
  
• 
  Cho Min = M[1], j = 1 (Xem phần tử đầu tiên là bé nhất)
  
• 
  So sánh Min với n-1 số còn lại. Trong quá trình so sánh nếu Min > M[i] thì gán Min = M[i], j=i và tiếp tục so sánh .
  

var n,i,nhonhat: integer; M: array[1..100] of real; min: real; f,g: text; begin assign(f,’bai5_5.inp’); reset(f); assign(g,’bai5_5.out’); rewrite(g); readln(f,n); for i:=1 to n do readln(f,M[i]); min:=M[1]; nhonhat:=1; for i:=2 to n do if M[i] < min then begin min:=M[i]; nhonhat:=i; end; writeln(g,'Phan tu nho nhat la phan tu thu',nhonhat); close(f); close(g); end.