В одномерном массиве из положительных и отрицательных чисел найти отрицательные числа и их сумму и вывести на экран. - VB

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

Постараюсь понять как решать на основе ваших решений. Спасибо. 2. В одномерном массиве из положительных и отрицательных чисел найти отрицательные числа и их сумму и вывести на экран.

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

textual
                            Листинг программы 
                        

                            Dim a(0 To 99) As Single, b
 
Private Sub Form_Load()
Randomize
' заполнить массив случайными числами от 0 до 100
For i = 0 To 99
a(i) = Fix(Rnd * 100)
Next
' теперь сделать случайное число чисел отрицательными
b = Fix(Rnd * 100)
For i = 0 To b
a(i) = a(i) * -1
Next
End Sub
                        

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

14 голосов , оценка 4.143 из 5

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