Imports System
Imports System.Collections.Generic
Public Class ArrayFrom2DArrayWithoutZeros
Public Shared Sub Main()
Dim array As Integer(,) = {
{1, 0, 8, 2},
{0, 7, 3, 0},
{9, 0, 0, 4}}
Dim nonZeroList As List(Of Integer) = New List(Of Integer)()
For Each element As Integer In array
If element <> 0 Then
nonZeroList.Add(element)
End If
Next
Dim resultArray As Integer() = nonZeroList.ToArray()
For Each element As Integer In resultArray
Console.Write(element & " ")
Next
End Sub
End Class
' run:
'
' 1 8 2 7 3 9 4
'