Подсчитать количество элементов одномерного массива, значения которых равны нулю - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы