Предмет: Информатика, автор: dzhamilya123

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

Ответы

Автор ответа: HRAshton
0
Visual Basic .NET :)

Imports System.Console

Module 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 Sub
End Module
Похожие вопросы
Предмет: Математика, автор: eseterasyl595
Предмет: Математика, автор: nrasylmhammet
Предмет: Алгебра, автор: doroniniarosjlav74