Question

Сформировать массив N целых чисел. Подсчитать количество нулевых элементов и исключить их из массива. VBA

Answer 1

Sub CountZeros()
Dim N As Integer
N = 10 ' задаем размер массива

Dim arr() As Integer
ReDim arr(1 To N)

' заполняем массив случайными числами
Dim i As Integer
For i = 1 To N
arr(i) = Int((100 - 1 + 1) * Rnd + 1)
Next i

' подсчитываем количество нулевых элементов
Dim zeroCount As Integer
zeroCount = 0

For i = 1 To N
If arr(i) = 0 Then
zeroCount = zeroCount + 1
End If
Next i

' выводим информацию о воздействии нулевых элементов на массив
If zeroCount = N Then
MsgBox "Весь массив состоит из нулей."
ElseIf zeroCount > 0 Then
MsgBox "В массиве есть нули. Они занимают " & zeroCount / N * 100 & "% элементов."
Else
MsgBox "В массиве нет нулей."
End If

End Sub