Помогите, пожалуйста, написать программу в VBA. Последовательность действительны...

November 2021 1 18 Report

Помогите, пожалуйста, написать программу в VBA. Последовательность действительных чисел оканчивается нулем. Найти количество членов этой
последовательности.

Answers & Comments

allangarsk Sub aaa()
    Const n = 50
    Dim a(1 To n) As Double, Zero As Boolean
    Randomize Timer
    For i = 1 To n
        a(i) = Int(21 * Rnd - 10)
    Next i
    k = 0: Zero = False
    For i = 1 To n
        If a(i) = 0 Then
            Zero = True
            Exit For
        End If
    Next i
    If Zero Then
        MsgBox "Количество членов последовательности равно " + CStr(i)
    Else
        MsgBox "В последовательности нет нулей"
    End If
End Sub

1 votes Thanks 2

Answers & Comments

ispolzuya znachenie pervyh potencialov ionizacii i energii srodstva k elektronu872fbb2f9c938d0eb866085156e875bd 60749

pomogite pozhalujsta zadana zadacha v vba formirovanie dvumernyh massivov sfor

odnim iz sposobov zashity metallicheskih izdelij ot korrozii yavlyaetsya pokrytie dru

MnSO4...

napisat formuly oksidov sootvetstvuyushih ukazannym gidroksidam napisat uravne

perevedite sleduyushie slova i slovosochetaniya sostavte s nimi 12 predlozhenij v d

nazovite veshestvo pozhalujsta srn2

tekushaya yachejka s5 dlya zakrashivaniya v krasnyj cvet yachejki raspolozhennoj na dve

1 prochtite tekst i otvette na sleduyushie voprosy 1 where is the kremlin situa

pomogite reshit pozhalujsta a eli elementy massiva e14 ravny sootvetstvenno

рекомендуемые вопросы

Helpful Links

Helpful Social