ХЕЛП! Вычислить квадратный корень из суммы квадратов четных элементов…

Sub Main () Dim a (10) As Integer Dim c As Integer Dim R As Random=New Random (100) For i As Integer=0 To 10 a (i)=R.Next (10) Console.WriteLine ("["+i.ToString ()+"] => "+a (i).ToString () Next For i As Integer=0 To 10 If (a (i) Mod 2=0) Then c=c+a (i) ^ 2 End If Next Console.WriteLine (Math.Sqrt (c) Console.Read () End SubНа. NET'oвском=)