Найти сумму отрицательных элементов нового массива - VB

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

Здравствуйте, помогите хоть чем-то Задан вещественный массив K(20), содержащий большое количество ну¬левых элементов. а) Создать новый массив L(), в который переписать все элементы исходного массива, кроме нулевых; б) Найти сумму отрицательных элементов нового массива.

Решение задачи: «Найти сумму отрицательных элементов нового массива»

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

                            Dim K(20) As Integer
        Dim r As New Random
        Dim j As Integer
        Dim summa As Integer
        For i = 0 To 20
            K(i) = r.Next(-5, 5) 'Набор случайных чисел
            If K(i) <> 0 Then
                j = j + 1
            End If
            If K(i) < 0 Then
                summa = summa + K(i)  'сумма отриТ›ательных элементов
            End If
        Next
        MsgBox(summa)
        Dim L(j) As Integer ' Новый массив 
        Dim a As Integer = 0
        For i = 0 To 20
            If K(i) <> 0 Then
                L(a) = K(i)
                a = a + 1
            End If
        Next
                        

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

13 голосов , оценка 4.308 из 5

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