Подсчитать количество элементов одномерного массива, значения которых равны нулю - VB

Формулировка задачи:

Подсчитать количество элементов одномерного массива, значения которых равны нулю. Размерность массива произвольная.

                    Листинг программы
                
 
                        
                          
                    
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 & ") = " & Format(a(i), "0.00")
Next
For i = 1 To m
k = a(i) = 0
Next
If k <> 0 Then
Print "& k = "
Else
Print "Элементы массива, равные нулю отсутствуют"
End If
End Sub

Подскажите пожалуйста ошибки

Решение задачи: «Подсчитать количество элементов одномерного массива, значения которых равны нулю»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы