Подсчитать количество элементов одномерного массива, значения которых равны нулю - VB
Формулировка задачи:
Подсчитать количество элементов одномерного массива, значения которых равны нулю. Размерность массива произвольная.
Подскажите пожалуйста ошибки
Решение задачи: «Подсчитать количество элементов одномерного массива, значения которых равны нулю»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim a() As Byte, i As Byte, m As Byte, k As Integer m = InputBox("Введите размерность массива") Cls ReDim a(1 To m) Print "Исходный массив:" For i = 1 To m a(i) = InputBox("Введите значения a (" & i & ")") Print Spc(5); "a (" & i & ") = " & a(i) If a(i) = 0 Then k = k + 1 Next If k <> 0 Then Print "Количество нулевых " & k Else Print "Элементы массива, равные нулю отсутствуют" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д