Soluzione

> funz := (i,j) -> (-1)^(i+j+1):
A := matrix(10,10,funz);