Решение домашних заданий

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

1 января 0001 / Информатика / Комментарии: 0

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

  • 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вском =)

Добавить комментарий