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

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

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

                    Листинг программы
                
а= 9 mod 2
if a <> 0 then
end if.

Заранее спасибо за помощь.

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы