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

Язык программирования: 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы