Một đoàn tàu gồm có 6 toa (Toa 1 có 7 hành khách; Toa 2 có 17 hành khách; Toa 3 có 11 hành khách; Toa 4 có 7 hành khách; Toa 5 có 9 hành khách; Toa 6 có 7 hành khách). Em hãy viết chương trình:
- Tính số hành khách trung bình của đoàn tàu này?
- Đếm số toa có số lượng hành khách lớn hơn số lượng hành khách trung bình của cả đoàn tàu.
Program hotrotinhoc;
var d,toa1,toa2,toa3,toa4,toa5,toa6,toa7 : byte;
tb: real;
begin
toa1:=7; toa2:=17; toa3:=11; toa4:=7; toa5:=9; toa6:=7;
tb:=(toa1+toa2+toa3+toa4+toa5+toa6)/6;
writeln('So hanh khach trung binh cua doan tau nay la:',tb:2:0);
if toa1>tb then inc(d);
if toa2>tb then inc(d);
if toa3>tb then inc(d);
if toa4>tb then inc(d);
if toa5>tb then inc(d);
if toa6>tb then inc(d);
write('Co ',d,'toa co so luong hanh khach lon hon so luong hanh khach trung binh cua doan tau');
readln
end.
