Một số tập Pasal Chương : Xâu kí tự (Tài liệu cung cấp Hoàng Tấn Phú Quốc ) Bài : Viết chương trình nhập vào mảng A gồm N số nguyên nhập thêm vào số nguyên x Hãy kiểm tra xem phần tử x có thuộc mảng A hay không ? Và phần tử thứ mảng ? Bài : Viết chương trình tìm tổng số chẵn số lẻ có mảng số nguyên nhập từ bàn phím ? Bài : Viết chương trình nhập vào mảng gồm N số nguyên xếp lại mảng theo thứ tự tăng dần ? Gợi ý : Cho vòng lặp For i := to (n-1) For j := (i+1) to n Nếu A[i] > A[j] đổi chỗ (sử dụng biến trung gian ) TG :=A[i]; A[i] := A[j]; A[j] :=TG; Bài : Viết chương trình tính tổng số mảng ? Tính tổng số chia hết cho mảng chiều A gồm N phần tử Bài : Viết chương trình đếm số lần xuất giá trị x mảng A gồm N phần tử ? Bài : Viết chương trình xếp giảm giần mảng ? Gợi ý : Giống A[i] < A[j] đổi chỗ Bài :Tìm kiếm vị trí xuất x a) Thay giá trị A[i] X thành Y b) Thay vị trí Gợi ý : duyệt phần tử mảng A[i] = X gắn A[i] = Y b) sử dụng lệnh break (dừng lại ) gắn A[i] = Y Bài : Viết chương trình nhập vào mảng A kiểm tra xem mảng có đối xứng hay không ? Gợi ý : Gắn biến k_tra := true ; duyệt qua phần tử mảng, if (A[i] A(n-1+1)) k_tra := false; if k_tra := true writeln(‘Mang doi xung’); Bài 9: Tìm kiếm cặp phần tử gần có tổng chia hết cho 10, thay phần tử = tổng giá trị chúng Gợi ý : if (A[i-1] +A[i]) mod 10 = then Begin K := (A[i-1]+A[i]); A[i-1]:=K; A[i] := K; End; .. .Bài 9: Tìm kiếm cặp phần tử gần có tổng chia hết cho 10, thay phần tử = tổng giá trị chúng Gợi ý