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

summa = summa + array(i)

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

end if

next i

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

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 = 0for i = 1 to 20    if (array(i)<0) then        summa = summa + array(i)        print "нашли "; array(i) 'эту строку можно удалить, она для пояснения    end ifnext iprint "сумма отрицательных чисел в массиве равна "; summa