Module Module1
    Function czyjest(ByVal n As Double, ByRef x() As Double, ByVal z As Double) As Double

        Dim res As Double

        If n = 0 Then
            res = 0
        Else
            If x(n) = z Then
                res = 1
            Else
                res = 0
            End If
            res = res + czyjest(n - 1, x, z)
        End If
   
        Return res

    End Function

    Sub Main()

        Dim x(100), n, z As Double

        Console.WriteLine("podaj ilosc elementow: ")
        n = Console.ReadLine()

        For i = 1 To n
            Console.WriteLine("podaj element nr{0}: ", i)
            x(i) = Console.ReadLine()
        Next

        Console.WriteLine("podaj szukany element: ")
        z = Console.ReadLine()


        Console.WriteLine("ilos szukanych elementow ciagu: {0}", czyjest(n, x, z))

        Console.ReadKey()


    End Sub

End Module