W = Array[RandomChoice[{-1, 0, 1}] &, {n, n}];
W // MatrixForm

W[[j]][[i]] (*used part command*)

g = RandomGraph[{v, e}, DirectedEdges -> True]

am = AdjacencyMatrix[g]

pos = am["NonzeroPositions"];

am2 = SparseArray[
  pos -> RandomSample@Join[ConstantArray[-1, n], ConstantArray[1, Length[pos] - n]]
]

RandomSample@Join[ConstantArray[1, k], ConstantArray[0, v - k]]