Module Module1

    Function najdimax(ByVal p() As Integer)
        Dim i, max As Byte
        max = p(1)
        For i = 2 To 99
            If p(i) > max Then max = p(i)
        Next
        najdimax = max
    End Function

    Function najdimin(ByVal p() As Integer)
        Dim i, min As Byte
        min = p(1)
        For i = 2 To 99
            If p(i) < min Then min = p(i)
        Next
        najdimin = min
    End Function

    Sub Main()

        Dim p1(99), i, m1, m2 As Integer

        Randomize(Timer)

        For i = 0 To 99
            p1(i) = Rnd() * 100
        Next

        m1 = najdimax(p1)
        m2 = najdimin(p1)

        Console.WriteLine("Maximum: {0}", m1)
        Console.WriteLine("Minimum: {0}", m2)

        Console.ReadLine()

    End Sub

End Module