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

        Dim res As Double
        If n = 1 Then
            res = x(n)
        Else
            res = x(n) + suma(n - 1, x)
        End If

        Return res

    End Function

    Sub Main()

        Dim x(100), n 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 elementow ciagu: {0}", suma(n, x))

        Console.ReadKey()


    End Sub

End Module