apply(A[,11:40],1,prod)
これでダメかな