Bài tập 1.2. Tạo danh sách L gồm n số nguyên được phát sinh ngẫu nhiên trong khoảng với n được nhập từ bàn phím.
Thực hiện các yêu cầu sau:
a. Đếm số phần tử chẵn và dương trong danh sách L.
b. Tính tích các phần tử lẻ trong danh sách L.
c. Tạo ra danh sách L1 là các phần tử nguyên tố có trong danh sách L.
d. Tìm bội chung nhỏ nhất của các phần tử trong danh sách L.
e. Xóa tất cả các phần tử lẻ trong danh sách L.
HƯỚNG DẪN CÀI ĐẶT

Code:

Tạo danh sách L gồm n số nguyên được phát sinh ngẫu nhiên trong khoảng  với n được nhập từ bàn phím.
n = Input["Nhap n"];
L = Table[Random[Integer,{-100,100}],{i,n}];
Print["L = ",L];
a.   Đếm số phần tử chẵn và dương trong danh sách L.
temp = 0;
For[i=1,in,i++,
       If[EvenQ[L[[i]]] && L[[i]]>0, temp++;];
    ];
Print["So so chan duong: ",temp];
b.   Tính tích các phần tử lẻ trong danh sách L.
temp = Select[L,OddQ];
If[temp  {},
       Print["Tich = 0"];
       ,
       Print["Tich = ", Product[temp[[i]],{i,Length[temp]}]];
];
c.   Tạo ra danh sách L1 là các phần tử nguyên tố có trong danh sách L.
L1 = Select[L, PrimeQ];
Print["L1 = ",L1];
d.   Tìm bội chung nhỏ nhất của các phần tử trong danh sách L.
Print["BCNN = ", LCM[Delete[L,0]]];
e.   Xóa tất cả các phần tử lẻ trong danh sách L.
i = 1;
While[in,
       If[OddQ[L[[i]]],
              L = Delete[L,i];
              n--;
           ,
              i++;
           ];
    ];
Print["L = ",L];