TIn 11 : Viết chương trình

[minhthanhtrancp]

[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.

bài 1: Viết chương trình nhập than khai thác trong tháng 11/2011 cho 30 công trường của Mỏ than Đèo Nai, biết mỗi công trường khai thác không dưối 2500 tấn. Tính tổng trung bình số than khai thác được, đưa ra công trường có số lượng than cao nhất, thấp nhất. In kết quả ra màn hình
bài 2: Để ủng hộ đồng bào bão lụt miền Trung, ĐOàn TN vận động quyên góp. Viết chương trình nhập số tiền đóng góp cho học sinh toàn trường (1500hs), mỗi hs đóng từ 5000 trở lên. TÍnh tổng và trung bình số tiền thu được, có bao nhiêu học sinh đóng góp 5000 và bao nhiêu học sinh đóng góp nhiều hơn 5000. In kết quả ra màn hình.

Mai t ktra học kỳ rồi, mọi người giúp t với. Thank all ^^!

 

[p_trk]

1: array[1..30] => for i:=1 to 30 do ==> if A> max then max:=a ==> max
tương tự cho min
2 : viết theo tex:
for i:=1 to 1500 do ==> tong :=tong+a;
if a:=5000 ==> dem:=dem+1;
if a>=5000 ==> dem1:=dem1+1;
print;

Sr bạn mình vội đi học nên không code được cho bạn