Предмет: Информатика,
автор: dzhamilya123
сформулировать массив B(), состоящий из четных чисел массива A()
Ответы
Автор ответа:
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
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
Предмет: Химия,
автор: Lero4ka14
Предмет: Алгебра,
автор: ася323