В одномерном массиве из положительных и отрицательных чисел найти отрицательные числа и их сумму и вывести на экран. - 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