Bài 1:Viết chương trình cho phép nhập một dãy gồm n số nguyên từ bàn phím và thực hiện:
a. Sắp xếp và in dãy số vừa nhập theo thứ tự giảm dần.
b. In ra phần tử có giá trị tuyệt đối lớn nhất trong dãy.
c. In ra các số chính phương có trong dãy.
d. Một phần tử của dãy được xem là phần tử chính nếu nó xuất hiện [
] lần trở lên. Hãy kiểm tra và in ra phần tử chính nếu có.
Ví dụ: Với n = 6 cho phép nhập một dãy gồm 6 số.
Nếu nhập dãy số: -5; -2; 0; -2; 4; -2
a. Cho kết quả là: 4; 0; -2; -2; -2; -5
b. Phan tu can tim : -5.
c. Phan tu chinh phuong: 0; 4
d. Phan tu chinh là : -2 (Vì -2 xuất hiện 3 lần trong dãy có 6 phần tử)
Bài 1 :
Khai báo
Program Cau1abcd;
Var M: array[1..20] of integer;
n,i,j,tam:integer;
xh,chinh:integer;
ok: boolean;
0.5

Nhập dãy số
Begin
Write(`Nhap n: `);Readln(n);
For i:= 1 to n do
Begin
Write(`M[`,i,`]=`); Readln(M[i]);
End;
0.5

Sắp xếp dãy số
 For i:=1 to n-1 do
For j:=i+1 to n do
if M[j]> M[i] then
Begin
Tam:=M[i];
M[i]:=M[j];
M[j]:=Tam;
End;
1.5

In dãy số đã sắp xếp
 Write(`Day so sau khi sap xep: `);
For i:=1 to n do Write(M[i],`;`);
0.5

Phần tử có giá trị tuyệt đối lớn nhất
 Writeln;
Write(`Phan tu co gia tri tuyet doi lon nhat:`);
if abs(M[1])>abs(M[n]) then write(M[1]) else write(M[n]);
0.5

In các phần tử là số chính phương
 Writeln;
Write(`Cac phan tu la so chinh phuong: `);
For i:=1 to n do
if M[i]>=0 then
if sqr(trunc(sqrt(M[i]))) = M[i] then write(M[i],`;`);
1.0

Tìm và in ra phần tử chính của dãy.
 Writeln;
ok:=false;
For i:= 1 to n do
Begin
xh:=0;
For j:=1 to n do if M[i]=M[j] then xh:=xh+1;
if xh >= n div 2 then Begin chinh:=M[i]; ok:=true end;
End;
if ok then write(`Phan tu chinh la: `,chinh)
else Write(`Khong co phan tu chinh`);
Readln;
End.
1.5

Bài 2 : Viết chương trình cho phép nhập từ bàn phím một số nguyên dương n và thực hiện:
a. In ra các số nguyên tố bé hơn hoặc bằng n.
Ví dụ: n = 7 thì in 2; 3; 5; 7.
b. In ra số nguyên tố nhỏ nhất không bé hơn n.
Ví dụ: n = 7 thì in ra 7.
n = 10 thì in ra 11.
n = 24 thì in ra 29.
c. In ra các cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n.
Ví dụ: Nhập n = 20 thì in ra:
3, 5
5, 7
11,13
17,19
Bài 2 : (4.0 điểm)
Khai báo
Program Cau2abc;
Var n,i: integer;
Tim: boolean;
0.5

Hàm xem một số là số nguyên tố.
Function NT(n:integer):boolean;
Var ok: boolean;
i: integer;
Begin
ok:=true;
For i:=2 to n-1 do if n mod i = 0 then ok:=false;
if i>=2 then NT:=ok else NT:=false;
End;

1.0

In các số nguyên tố