Bài tập 1.1. 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. In ra phần tử đầu, giữa và cuối của danh sách.
b. Tìm phần tử nhỏ nhất trong danh sách.
c. Tạo danh sách L1 gồm những số nguyên tố trong danh sách.
d. Tính tổng tất cả các phần tử trong danh sách.
e. Tính tổng các số nguyên tố trong danh sách.
f. Sử dụng thuật toán Bubble Sort sắp xếp danh sách theo thứ tự giảm dần.
g. Thêm 1 phần tử vào trong danh sách L sao cho danh sách L vẫn giảm dần.
h. Xóa 1 phần tử bất kỳ trong danh sách.

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.
L = Table[Random[Integer,{-100,100}],{i,n];
Print[“Danh sach L = ”, L];
a.   In ra phần tử đầu, giữa và cuối của danh sách.
Print[“Phần tử đầu :”, First[L]];
Print[“Phần tử giữa :”, L[[Ceiling[n/2]]]];
Print[“Phần tử cuối :”, Last[L]];
b.   Tìm phần tử nhỏ nhất trong danh sách.
Print["Phần tử nhỏ nhất: ",Min[L]];
c.   Tạo danh sách L1 gồm những số nguyên tố trong danh sách.
L1 = Select[L,PrimeQ];
Print["L1 = ",L1];
d.   Tính tổng tất cả các phần tử trong danh sách.
Print["Tong = ",Sum[L[[i]],{i,n}] ];
e.   Tính tổng các số nguyên tố trong danh sách.
Print["Tong nguyen to:", Sum[L1[[i]],{i,Length[L1]}]];
f.   Sử dụng thuật toán Bubble Sort sắp xếp danh sách theo thứ tự giảm dần.
Clear[temp];
For[i=1,i<n,i++,
       For[j=n,j>i,j--,
              If[L[[j]]>L[[j-1]],
                     temp = L[[j]];
                     L[[j]]=L[[j-1]];
                     L[[j-1]]=temp;
                  ];
           ];
    ];
Print["Bubble Sort: ", L];
g.   Thêm 1 phần tử vào trong danh sách L sao cho danh sách L vẫn giảm dần.
Clear[x,i];
n = Length[L];
x = Input["Nhap phan tu can xen"];
i = 1;
While[in && L[[i]]>x,
       i++;
    ];
L = Insert[L,x,i];
Print["L = ",L];