Язык программирования: Visual Basic

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

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