Bai tap pascal

BAØI 1 : XẾP GẠCH.
Minh rất thích trò chơi xếp các chiếc hộp có hình viên gạch. Minh đặt các viên gạch chồng lên nhau và xây thành nhiều chồng có độ cao khác nhau. Minh khoe với chị rằng “Chị trông, em đã xây được một bức tường”. Chị của Minh trả lời “Em phải xếp các viên gạch có độ cao giống nhau mới được gọi là một bức tường”. Sau khi nghe chị nói như vậy nó cân nhắc một tí và cho rằng ý kiến ấy là đúng. Vì vậy em bắt đầu tiến hành sắp xếp lại các chồng gạch lần lượt từng chiếc một cho đến khi hoàn thành công việc. Khi công việc đã hoàn tất, Minh mệt lả và muốn có bạn nào giúp Minh di chuyển các viên gạch với số lần ít nhất.












Các chiếc hộp trước và sau khi xếp
Yêu cầu: Hãy lập trình đưa ra số lần di chuyển ít nhất của các viên gạch sao cho từ các chồng gạch có độ cao khác nhau trở thành các chồng gạch có độ cao bằng nhau; lần lượt từng chiếc một cho đến khi hoàn thành công việc.
Dữ liệu vào: có cấu trúc sau:
- dòng đầu tiên là số n, n là số các chồng gạch,
- dòng tiếp theo lần lượt là các h[SUB]i[/SUB], độ cao của chồng gạch thứ i. (1≤ n ≤ 50; 1≤ h[SUB]i[/SUB] ≤ 100; i = 1..n). Lưu ý rằng số viên gạch bao giờ cũng chia hết cho số chồng gạch.
Dữ liệu ra: chỉ có một dòng chứa một số nguyên dương là kết quả tính toán số lần ít nhất sau khi xếp lại các chồng gạch. Nếu không có kết quả cũng phải ghi rõ “KHONG CAN DI CHUYEN LAN NAO”
Ví dụ: với hình trên ta có dữ liệu vào, ra:

lấy trung bình cộng trước
do đề bài cho sẵn là số gạch chia hết cho số chồng => chỉ cần đếm chồng nào thiếu/hơn số trung bình cộng phía trên