Вывести на экран сначала положительные, затем отрицательные числа массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д