Вывести на экран все четные элементы и определить количество нечетных элементов
Вывести на экран все четные элементы и определить количество нечетных элементов
2009-11-26 07:00 Александр
Вывести на экран все четные элементы и определить количество нечетных элементов.
'тоже самое, что уже было предложено - только с вводом количества элементов в InputBox. Результат выводится в окне OUTPUT
Sub Main()
Dim intMyArray() As Integer
Dim intNumItmArray As Integer
Dim intResult As Integer = 1
Dim intCnt As Integer
Dim sglTmp As Single
Dim strResult As String = ""
Do While strResult = [...]