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

1 2

Line 1: error: 'Sub' does not name a type compilation terminated due to -Wfatal-errors.