Code:
S[A_, n_] := If[n == 1,
Return[A[[1]]];
,
Return[A[[n]] + S[A, n - 1]];
];
Code:
S[A_, n_] := If[n == 1,
Return[A[[1]]];
,
Return[A[[n]] + S[A, n - 1]];
];
Code:
S[A_, n_] := If[n == 1,
Return[A[[1]]];
,
Return[A[[n]] + S[A, n - 1]];
];
Clear[A, n];
n = Input["Nhap n"];
A = Table[Random[Integer, {1, 10}], {i, n}];
Print["A = ", A];
Print["S(A,n) = ", S[A, n]];
Print["Tong A = ", Sum[A[[i]], {i, n}]];
|
|