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

Question

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

Comments

паскаль или кумир или pyton?

---

Бейсик

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<br>print "сумма отрицательных чисел в массиве равна "; summa

Comments

Dim array(20) as Double = {1,17.2,-562.42,16,13,6,2,0,245,9,-9,-2,4.52}

---

Dim i as Integer

---

Dim summa as Double = 0

---

for i = 1 to 20

---

if (array(i)<0) then

---

summa = summa + array(i)

---

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

---

end if

---

next i

---

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