Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогите с массивом Добавлено: 18.05.09 17:02  

Автор вопроса:  Роман
Нужно написать программный код к задаче:

В массиве содержится 10 случайных чисел. Выведите на экран все четные числа и отдельно нечетными числами.

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #1 		Добавлено: 18.05.09 17:14
  1.  
  2. Sub Main
  3. 'Заполняем массив
  4. dim h(9)
  5. for i = 0 to 9
  6. h(i) = rnd * 100
  7. next
  8. 'Печатаем четные числа
  9. for i = 0 to 9
  10. if h(i) mod 2 = 0 then
  11. print h(i)
  12. end if
  13. next
  14. 'Печатаем нечетные числа
  15. for i = 0 to 9
  16. if h(i) mod 2 = 1 then
  17. print h(i)
  18. end if
  19. next
  20. 'Выходим
  21. end
  22. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Роман



Вопросов: 1
Ответов: 1
  Профиль | | #2 Добавлено: 18.05.09 17:15
Огромное Спасибо

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам