Вывести на экран сначала положительные, затем отрицательные числа массива - VB

Узнай цену своей работы

Формулировка задачи:

Короче вот задание: "Массив состоит из 12 целых положительных и отрицательных чисел, каждое из которых находится в интервале от 2 до 12. Вывести на экран сначала положительные затем отрицательные числа." Я пытался ее написать, получилось только разделить положительные и отрицательные оператором mod. Например:
Заранее спасибо за помощь.

Решение задачи: «Вывести на экран сначала положительные, затем отрицательные числа массива»

textual
Листинг программы
Dim a(12) As Integer, i&
List1.Clear
Randomize
List1.AddItem "начальный массив"
For i = 0 To 11
 If i / 2 = Int(i / 2) Then a(i) = Int(Rnd(1) * 11) + 2
 If i / 2 <> Int(i / 2) Then a(i) = -2 + Int(Rnd(1) * (-10))
 List1.AddItem a(i)
Next i
List1.AddItem "+ положительные"
For i = 0 To 11
 If a(i) > 0 Then List1.AddItem a(i)
Next i
List1.AddItem "-отрицательные"
For i = 0 To 11
 If a(i) < 0 Then List1.AddItem a(i)
Next i

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы