Дано 30 чисел подсчитать сумму отрицательных чисел Если можно через Qbasik

Question

Дано 30 чисел подсчитать сумму отрицательных чисел
Если можно через Qbasik

Answer 1

Qbasic значит...

For i=1 to 30
Input a                                    -вводим число
if a<0 then s=s+a                    -проверка<br>Next
? s
Понятно?