FindMinimum[{Total[Array[x, 100]], 

  Join[Thread[

    RandomInteger[{-100, 100}, {100, 100}] . Array[x, 100] > 1], 

   Thread[Array[x, 100] > 0], {Array[x, 100] \[Element] Integers}]}, 

 Array[x, 100]]