В одномерном массиве найти число кратное 7, если таковы есть, вывести на экран.

решение на VBA:Sub zad1()Dim a(10) As IntegerDim otvet As Stringotvet = "Massiv: "RandomizeFor i = 0 To 10    a(i) = Fix(Rnd * 1000)    otvet = otvet + "[" + CStr(a(i)) + "] "Next iotvet = otvet + vbCrLf + "kratno 7: "For i = 0 To 10    If a(i) Mod 7 = 0 Then otvet = otvet + "[" + CStr(a(i)) + "] "Next iMsgBox (otvet)End SubРезультат: