How to find unanswered questions that really have answers?

Question

Currently there are 368 unanswered questions, and 352 that have zero answers.

This means that there are 16 that have at least one answer, but for which the answer has a non-positive vote count. How can I find them?

Answer 1

You can't do that with the tabs on that page or using the search, but you can find them using the API:

unanswered = Last@Reap@Block[{i = 1, more},
    While[more =!= False, 
        {more = "has_more" /. #, Sow["items" /. #]} &@Import["http://api.stackexchange.com/2.1/questions/unanswered?pagesize=100&site=mathematica&filter=!BGS1(RNaQDJUqhjM_kktL.ISG39ejq&page=" <> ToString@i, "JSON"];
        i++
    ]
] ~Flatten~ 2;
Cases[unanswered, {"answer_count" -> Except[0], "link" -> l_, "title" -> t_} :> Hyperlink[t, l]] // TableForm