Cấp trường 2

Bài 1 : Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số nguyên gồm N phần tử.
Bài 2 : Viết chương trình tính tổng bình phương của các số âm trong một mảng gồm N phần tử.
Bài 3 : Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình.
Bài 4 : Cho một mảng 2 chiều A cấp mxn gồm các số nguyên và một số nguyên x. Viết chương trình thực hiện các công việc sau:
a/ Đếm số lần xuất hiện của x trong A và vị trí của chúng.
b/ Tính tổng các phần tử lớn nhất của mỗi dòng.
Bài 5 : Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó sang chữ in hoa rồi in kết quả ra màn hình.
Bài 6 : Viết chương trình đếm số ký tự chữ số trong một xâu ký tự được nhập vào từ bàn phím.
Bài 7 : Viết chương trình nhập một xâu từ bàn phím. In ra xâu đó sau khi xóa hết các ký tự trắng thừa trong xâu. (Ký tự trắng thừa là các ký tự trắng đầu xâu, cuối xâu và nếu ở giữa xâu có 2 ký tự trắng liên tiếp nhau thì có 1 ký tự trắng thừa).
Bài 8 : Viết chương trình để mã hoá và giải mã một xâu ký tự bằng cách đảo ngược các bit của từng ký tự trong xâu.

Uses crt;
Var n:integer;
k:real;
Begin
clrscr;
Write('Nhap n: ');readln(n);
If (n-5) mod 3 <> 0 then
Writeln('Khong')
Else
Begin
k:=0;
k:=(n-5)/3;
Writeln('k =',k:5:2);
End;
Readln;
End.