сформулировать массив B(), состоящий из четных чисел массива A()

Visual Basic .NET :)Imports System.ConsoleModule Module1    Sub Main()        Dim Rnd As Random = New Random()        Dim A(5), B(5) As Integer        Dim k As Integer        Dim i As Byte        For i = 0 To A.Length - 1            A(i) = Rnd.Next()            WriteLine("A({0}) => {1}", i, A(i))        Next        WriteLine()        i = 0        For Each k In A            If (k Mod 2 = 0) Then                B(i) = k                i = i + 1            End If        Next        For k = 0 To i - 1            WriteLine("B({0}) => {1}", k, B(k))        Next        ReadKey(False)    End SubEnd Module