Cấp trường 4

Bài 1 : Viết chương trình nhập vào một dãy số nguyên có n phần tử.
a. Sắp xếp dãy theo thứ tự tăng dần và in kết quả ra màn hình.
b. Nhập vào một số x bất kì, đếm số lần xuất hiện của nó trong dãy trên.
c. In ra màn hình số phần tử nhỏ hơn hoặc bằng x.
d. In ra màn hình số phần tử lớn hơn x.
Bài 2 : Viết chương trình nhập vào một dãy số nguyên có n phần tử . Sắp xếp dãy số theo thứ tự giảm dần & tính giá trị trung bình của dãy.
Bài 3 : Viết chương trình nhập vào một ma trận vuông cấp n. a.
a. In ra tổng các phần tử trên đường chéo chính.
b. In ra màn hình tổng các phần tử trên đường chéo phụ.
Bài 4: Nhập vào 3 số nguyên dương ( kiểm tra điều kiện nhập). Tìm UCLN , BCNN của 3 số đó.
Bài 5 : Tính tổng sau : 1+3+5+.......+ n ( với n lẽ , kiểm tra điều kiện nhập)
Bài 6 : Viết chương trình nhập vào một ma trận. In ma trận chuyển vị của nó ra màn hình. Ma trận B là ma trận chuyển vị của ma trận A nếu các phần tử của chúng có quan hệ B[i, j] = A[j, i].
Bài 7 : Nhập vào 1 chuỗi gồm chữ và số. Hãy tách riêng các số. Chuyển thành số và tính tổng các chữ số đó.

BT2 (4)
Uses Crt;
Var s,n,i,j,t:integer;
a:array[1..20] of integer;

Begin
Clrscr;
Writeln(‘SAP XEP DAY SO:’);
Write(‘Nhap so phan tu cua day n = ‘); Readln(n); For i:=1 to n do
Begin

Write(‘a[‘,i,’]= ‘);
Readln(a[i]);
End;
{sap xep day so giam dan} For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then
Begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;

End;
Writeln(' Day sau khi sap xep giam dan la:'); For i:=1 to n do
Write(a[i]:4); Readln;
{Tinh trung binh day}
s:=0;
For i:=1 to n do s:=s+a[i];
Writeln('Gia tri trung binh la: ',s/n:6:2);

Readln;

End.