Найти сумму чисел, предшествующих первому отрицательному числу в последовательности данных чисел.

Написать программу нахождения среди чисел 1, 1+1/2, 1+1/2+1/3,...первого большего данного числа a.