Язык программирования: Visual BasicЗадача: У вас есть баксы. Вы желайте поменять их

Sub Z()
Dim a(10) As Currency
Dim i As Integer
Dim min As Currency
Dim s As String
s = "Курсы покупки в банках:" amp; Chr(13)
For i = 1 To 10
   a(i) = Int(Rnd * 1000 + 3000) / 100
   s = s amp; i amp; ": " amp; a(i) amp; " " 
   If i = 1 Then min = a(i)
   If a(i) lt; min Then  min = a(i)
Next i
s = s amp; Chr(13) amp; "Меняйте в банке номер:  "
For i = 1 To 10
  If a(i) = min Then s = s amp; i amp; "; "
Next i
s = s amp; Chr(13) amp; "По курсу: " amp; min
MsgBox (s)
End Sub