Question

Пожалуйста, очень срочно!
Дан массив А из 20 элементов
Найти сумму отрицательных элементов массива

Answer 1

Dim array(20) as Double = {1,17.2,-562.42,16,13,6,2,0,245,9,-9,-2,4.52}Dim i as IntegerDim summa as Double = 0
for i = 1 to 20    if (array(i)<0) then        summa = summa + array(i)        print "нашли "; array(i) 'эту строку можно удалить, она для пояснения    end ifnext i
print "сумма отрицательных чисел в массиве равна "; summa

Answer 2

summa = summa + array(i)

Answer 3

print "нашли "; array(i) 'эту строку можно удалить, она для пояснения

Answer 4

end if

Answer 5

next i

Answer 6

print "сумма отрицательных чисел в массиве равна "; summa