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 Return n
        ElseIf x(n) = 0
z Then
            Return n
        Else
            If x(n) = z Then
                res = 1
            Else
                res = 0
            End If
            res = res + Return czyjest(n - 1, x, z)
        End If
   
        Return res

If

    End Function

    Sub Main()

        Dim x(100), n, z As Double

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()


ReadLine()

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

        Console.ReadKey()


    End Sub

End Module
Module