Question

Язык программирования: Visual BasicЗадача: У вас есть доллары. Вы хотите обменять их на рубли. Есть информация стоимости купли-продажи в банках города. В городе N банков. Составьте программу, определяющую, какой банк выбрать, чтобы обменять доллары на рубли наиболее выгодно.

Answer 1

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