Дан одномерный массив А(30). Найти все элементы массива, кратные 3 и среди них найти наименьшее. VBA

1
А вывод через msgbox делать? Или тебя только расчетный фрагмент программы интересует?
Msgbox желательно)

Ответы и объяснения

  • Участник Знаний
2014-03-26T11:49:14+04:00
Если массив уже заполнен, то данная задача будет решена следующим фрагментом программы:
For i = 1 To 30
   If (A(i) Mod 3) = 0 Then                               
      s = s + Str(A(i)) + "; " 
      If min > A(i) Then min = A(i)
      End If
Next i
MsgBox ("Кратны 3: " & s & min & " - минимальный")