Module Module1

    Sub Main()

        Dim min, max As Integer
        Dim prosjek As Double
        Dim rnd As Random = New Random()
        Dim k, j As Integer
        Dim niz100(99) As Integer
        Try
            Console.WriteLine("unesite donju granicu")
            k = Console.ReadLine()
            Console.WriteLine("unesite gornju granicu")
            j = Console.ReadLine()

            For i = 0 To niz100.GetUpperBound(0)

                niz100(i) = rnd.Next(k, j)
            Next

            For Each item In niz100
                If max < item Then
                    max = item
                End If
                If min > item Then
                    min = item
                End If
                prosjek += item
            Next
            prosjek = prosjek / 100

            Console.Write("najveci broj   {0} ,        najmanji broj:  {1} ,   srednja Wrijednost:        {2}  ", max, min, prosjek)
            Console.ReadKey()

        Catch ex As Exception
            Console.WriteLine("unos je pogresan")
            Main()
        End Try
    End Sub

End Module