Code:
(* BAI 5 *)
n = Input["Nhap vao n"];
L = Table[Random[Integer, {20, 90}], {n}];
S = Table[Random[Integer, {20, 90}], {n}];
L1 = Select[L, EvenQ];
L2 = Select[L, OddQ];
L3 = Select[L, PrimeQ];
L4 = Sort[Join[L1, L3]];
L5 = Sort[Join[L2, L3], Greater];
Print["DS Chan L1: ", L1];
Print["DS Le L2: ", L2];
Print["DS So Nguyen To L3: ", L3];
Print["DS L4=L1+L3: ", L4];
Print["DS L5=L2+L3: ", L5];
(*e, f/ Phat Sinh Va ve Diem*)
VeDTDiem[L_, S_] := Module[{D, i, n},
n = Length[L];
D = {};
For[i = 1, i ≤ n, i++,
D = Append[D, Part[L, i]];
D = Append[D, Part[S, i]]
];
Print["DS Diem :", D = Partition[D, 2]];
ListPlot[D, PlotStyle -> PointSize[0.02]];
];
VeDTDiem[L, S]Các bạn tham khảo và đóng góp thêm nha.