Пожалуйста, очень срочно!
Дан массив А из 20 элементов
Найти сумму отрицательных элементов массива
Ответы
Ответ дал:
0
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
for i = 1 to 20 if (array(i)<0) then summa = summa + array(i) print "нашли "; array(i) 'эту строку можно удалить, она для пояснения end ifnext i
print "сумма отрицательных чисел в массиве равна "; summa
Ответ дал:
0
summa = summa + array(i)
Ответ дал:
0
print "нашли "; array(i) 'эту строку можно удалить, она для пояснения
Ответ дал:
0
end if
Ответ дал:
0
next i
Ответ дал:
0
print "сумма отрицательных чисел в массиве равна "; summa
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад