Code:
(*bai 3*)
n = Input["Nhap Vao n:"];
TaoMang[n_] := Module[{A},
A = Table[Random[Integer, {5, 100}], {n}];
Return [A]
];
(*b/ Tinh tong danh sach*)
TongDS[A_] := Module[{i, n},
Print["===== Tong Danh Sach ====="];
n = Length[A];
Print["Tong DS: ", Sum[A[[i]], {i, n}]]
];
(*c/ Tong so lon hon 50*)
TongLon50[A_] := Module[{S, i},
Print["===== Tong Cac So Lon Hon 50 ====="];
n = Length[A];
S = 0;
For[i = 1, i ≤ n, i++,
If[A[[i]] > 50,
S += A[[i]];
]
];
Print["Tong: ", S];
];
(* d/ Ds so le va tinh tong*)
TaoDSLe[A_] := Module[{B, i, n},
Print["===== Tong Cac So Le ====="];
B = Select[A, OddQ];
n = Length[B];
Print["DS: ", B];
Print["Tong: ", Sum[B[[i]], {i, n}]];
];
(*e/ Tong cac so chan trong ds*)
TongSoChan[A_] := Module[{B, i, n},
Print["===== Tong Cac So Chan ====="];
B = Select[A, EvenQ];
n = Length[B];
Print["Tong DS la: ", Sum[B[[i]], {i, n}]];
];
(*f/ Liet ke cac so nguyen to*)
SoNguyenTo[A_] := Module[{B, n, i},
Print["===== DS Va Tong Cac So Nguyen To ====="];
B = Select[A, PrimeQ];
n = Length[B];
Print["DS: ", B];
Print["Tong: ", Sum[B[[i]], {i, n}]];
];
(*g/ Tim so chia het cho 5*)
ChiaHet5[A_] := Module[{B, n},
Print["===== DS Cac So Chia Het Cho 5 ====="];
n = Length[A];
B = {};
For[i = 1, i ≤ n, i++,
If[Mod[A[[i]], 5] == 0,
B = Append[B, A[[i]]]
]
];
Print["DS: ", B]
];
UCLNList[A_] := Module[{a, b, dem, n, temp},
Print["===== UCLN Cua DS ====="];
UCLN2PT[a_, b_] :=
If[a == b,
Return[a],
If[a > b,
Return[UCLN2PT[a - b, b]],
Return[UCLN2PT[a, b - a]]
]
];
n = Length[A];
dem = 1;
temp = 0;
If[n == 1,
Return [A[[1]]],
If[n == 2,
Return [UCLN2PT[A[[1]], A[[2]]]],
While[dem < n,
temp = A[[dem]];
temp = UCLN2PT[temp, A[[dem + 1]]];
dem++;
];
Return [temp]
]
]
];
A = TaoMang[n]
TongDS[A]
TongLon50[A]
TaoDSLe[A]
TongSoChan[A]
SoNguyenTo[A]
ChiaHet5[A]
UCLNList[A]
Các bạn tham khảo nha.