Module Module1

    Sub Main()
        Dim numbers(1, 2) As Short
        Dim max, min, zeros As Short
        max = 0
        min = 0
        zeros = 0

        For i As Integer = 0 To 1
            For j As Integer = 0 To 2
                Do
                    Console.WriteLine("Δώστε ένα μη αρνητικό αριθμό " + i.ToString + "." + j.ToString)
                    numbers(i, j) = Console.ReadLine()
                Loop While numbers(i, j) < 0

            Next
        Next
        max = numbers(0, 0)
        min = numbers(0, 0)
        For i As Integer = 0 To 1
            For j As Integer = 0 To 2
                If numbers(i, j) > max Then
                    max = numbers(i, j)
                End If
                If numbers(i, j) < min Then
                    min = numbers(i, j)
                End If
                If numbers(i, j) = 0 Then
                    zeros += 1
                End If
            Next
        Next
        Console.WriteLine("Το μεγαλύτερο στοιχείο = {0}", max)
        Console.WriteLine("Το μικρότερο στοιχείο = {0}", min)
        Console.WriteLine("Εισάγατε {0} μηδενικούς αριθμούς.", zeros)
        Console.ReadLine
    End Sub

End Module
