Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Вывести на экран все четные элементы и определить количество нечетных элементов


Вывести на экран все четные элементы и определить количество нечетных элементов
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 = [...]


В избранное