DiscretePlot[(-1)^n/n, {n,1,20}]