Loop with uniroot

Question

ct= c(0      ,        0        ,      0        ,      0       ,     400     ,       400,350)
salary=c(  2200      ,     1909       ,    1909     ,   1900      ,    1