Code:
(*Bai 4*)
n = Input["Nhap Vao n"];
TaoDSLe[n_] := Module[{A, i},
A = Table[i*2 - 1, {i, 1, n}];
Return [A]
];
(*a/ Tong So Nguyen To Trong Day*)
TongSNT[A_] := Module[{B, n, i},
Print["===== Tong Cac So Nguyen To ====="];
B = Select[A, PrimeQ];
n = Length[B];
Print["Tong: ", Sum[B[[i]], {i, n}]];
];
(*b/ Tong binh phuong*)
TongBinhPhuong[A_] := Module[{n, i},
Print["===== Tong Binh Phuong ====="];
n = Length[A];
Print["Tong: ", Sum[(A[[i]]^2), {i, n}]]
];
(*c/ Tao 1 day moi 30 so nguyen trong doan [-100, 100]*)
TronMang[A_] := Module[{B, D, i, n},
Print["===== Tron Mang ====="];
B = {};
D = {};
n = Length[A];
B = Table[Random[Integer, {-100, 100}], {n}];
For[i = 1, i ≤ n, i++,
D = Append[D, Part[A, i]];
D = Append[D, Part[B, i]]
];
Print["DS Sau Khi Tron: ", D];
];
(*e/ Tao ds moi bo di nhug phan tu chan*)
DSChan[A_] := Module[{i, n, B},
Print["===== DS PT Vi Tri Chan ====="];
B = {};
n = Length[A];
For[i = 1, i ≤ n, i++,
If[OddQ[i],
B = Append[B, A[[i]]]
]
];
Print["DS: ", B];
];
(*f/ Tong tat ca cac phan tu vi tri chan trong day*)
TongVTChan[A_] := Module[{i, n, T},
Print["===== Tong Cac PT Vi Tri Chan ====="];
T = 0;
n = Length[A];
For[i = 1, i ≤ n, i++,
If[EvenQ[i],
T += A[[i]]
]
];
Print["Tong: ", T];
];
(*g/ Tao day moi bang cach loai bo so nguyen to*)
LoaiSNT[A_] := Module[{B, n, i},
Print["===== DS Sau Khi Loai So Nguyen To ====="];
B = {};
n = Length[A];
For[i = 1, i ≤ n, i++,
If[PrimeQ[A[[i]]] == False,
B = Append[B, A[[i]]]
]
];
Print["DS: ", B]
];
A = TaoDSLe[n]
TongSNT[A]
TongBinhPhuong[A]
TronMang[A]
DSChan[A]
TongVTChan[A]
LoaiSNT[A]
Các bác cứ từ từ tham khảo thêm nha.