Code:

S[A_, n_] := If[n == 1,
                     Return[A[[1]]];
                  ,
                     Return[A[[n]] * S[A, n - 1]];
               ];