В одномерном массиве найти количество элементов, равных нулю

@AnastasiyaMalay · Регистрация: 16.03.2016

Author24 — интернет-сервис помощи студентам

помогите написать программу

@МВТ · 27.04.2016, 21:29

Не понял, в чем сложность, но пусть будет так

Visual Basic

Sub tt()
    Dim arr()
    arr = Array(0, 1, 2, 0, 3, 0) 'задаем массив, откуда будете его бать Вы я не заню
    Dim i As Long, Cnt As Long
    For i = 0 To UBound(arr) 'перебираем все элементы массива
        If arr(i) = 0 Then Cnt = Cnt + 1 'если элемент =0, увеличиваем счетчик
    Next
    MsgBox Cnt 'выводим значение счетчика на печать
End Sub

@AnastasiyaMalay 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 6
		1
	В одномерном массиве найти количество элементов, равных нулю 27.04.2016, 19:22. Показов 2276. Ответов 1 Метки нет (Все метки) помогите написать программу 0

	27.04.2016, 21:29