Using `Min`:

    data = {-1050, 50, 1001, 1950, 1950, 1950, 525, 0};
    FoldList[Min[#1 + #2, #2] &, data]