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

Ответы 1

  • решение на 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Результат:
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years