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

        Dim res As Double
        Double

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

If
   
        Return res

    End Function

    Sub Main()

        Dim x(100), n 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("Suma WriteLine("podaj szukany element: ")
        z = Console.ReadLine()


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

czyjest(n, x, z))

        Console.ReadKey()


    End Sub

End ModuleModule