[code] Tìm giá trị nhỏ nhất và vị trí của nó trong dãy

Do
 $n=InputBox("Nhập số phần tử","n =")
Until $n<=100
Dim $M[100]
For $i=1 To $n
 $M[$i]=InputBox("Nhập","M"&$i&" =")
Next
$i=1
$Min=$M[$i]
$vt=$i
Do
 $i+=1
 If $Min>$M[$i] Then
  $Min=$M[$i]
  $vt=$i
 EndIf
Until $i=$n
MsgBox(0,"Giá trị nhỏ nhất là ",$Min)
MsgBox(0,"Vị trí số",$i)