Bài tập khó về mảng Pascal!

[tmb12]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào từ bàn phím số nguyên dương N (2 ≤ N ≤ 20) và N số nguyên A[1], A[2], …, A[N] bất kỳ có giá trị tuyệt đối ≤ 10^6
Tìm trong dãy A xem có số X bất kỳ được nhập từ bàn phím không.
Nếu có thì thay số X bằng Y bất kỳ tại vị trí đó
Nếu không tìm thấy thì thêm giá trị X đó vào vị trí k trong dãy

Copy từ diendantinhoc.vn

 

[mikelhpdatke]

Bài này xử lý mảng bình thường thôi. Mẹo nhỏ là nhập X,k trước. Trong khi nhập A kiểm tra xem có = X hay ko. Nắm chắc kiến thước, phương pháp xử lý mảng là ok

 

[11thanhkhoeo]

begin 
    read(fi,n,x,y,k);
    for i:=1 to n do 
      begin 
            read(fi,a[i]);
              if a[i]=x then 
              begin 
                    kt:=true;
                    a[i]:=y;
              end;
        end;
         if not kt then 
              begin 
                 for i:=n to k do 
                    a[i+1] :=a[i];
                  a[k]:=x;
             end;
end;

Đây là thân chương trình viết theo thuật toán của Đạt