[ create a new paste ] login | about

Link: http://codepad.org/TLzMV9hW    [ raw code | fork ]

Plain Text, pasted on Feb 17:
1
2
3
4
5
6
7
8
9
10
Sub massiv(ByVal x() As Integer)
        Dim y As Double = 1
        For i = 0 To x.Length - 1
            y *= Math.Pow(x(i), (1 / x.Length))
        Next
        For i = 0 To x.Length - 1
            x(i) = x(i) / y
            ListBox1.items.add(x(i))
        Next
    End Sub


Create a new paste based on this one


Comments: