Регистрация
aleksbotalov33p00u0t
14.06.2022 19:51
Информатика
Есть ответ 👍

последнее задание ИКТ СОЧ [фото прекрепленно] ​

275
493
Посмотреть ответы 1

Ответы на вопрос:

alis2710p00nvt
alis2710p00nvt
4,8(43 оценок)
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

Популярно: Информатика