Viết chương trình nhập vào giờ đến và giờ đi của các xe tại một bến xe. Biết rằng các xe có thể đậu trong ngày (từ 0 đến 23 giờ)
a/ Nhập vào giờ cần thống kê. Cho biết tại bến có bao nhiêu xe vào thời điểm đó và đó là những xe nào.
b/ Cho biết xe tập trung đông nhất tại bến là lúc nào.
Ví dụ:
- Số xe tại bến: 7
Xe Giờ đến Giờ đi
1 7 11
2 10 13
3 3 8
4 0 7
5 16 20
6 11 15
7 18 23
- Giờ cần thống kê: 12
=> Tổng số xe đang đậu tại bến 12 giờ là 2 xe.
Là xe số: 2, 6.
- Xe tập trung đông nhất vào lúc:
7 giờ / xe số 1, 3, 4
11 giờ / xe số 1, 2, 6
Đăng ký:
Đăng Nhận xét (Atom)
Bài được xem nhiều nhất
-
Cho dãy n số nguyên dương a1, a2, …, an và số nguyên dương S. Hãy đếm xem có bao nhiêu cặp phần tử (ai, aj) (i <> j) thỏa mãn ai + aj ...
-
Nhập xâu s chỉ chứa các chữ cái viết hoa. Đếm xem s có bao nhiêu kí tự khác nhau. Input · Dòng 1: số test t · t dòng sau: mỗi dòng 1 xâu ...
-
Xét xâu S chỉ bao gồm các kí tự ngoặc mở ‘(‘ và ngoặc đóng ‘)’. Xâu S xác định một cách đặt ngoặc đúng, nếu thỏa mãn các điều kiện: · Tổng ...
-
Cho trước số nguyên dương n. Viết chương trình kiểm tra xem có bao nhiêu số nguyên dương nhỏ hơn hoặc bằng n nguyên tố cùng nhau với n (nghĩ...
-
Đề thi tin học trẻ bảng C tỉnh Quảng Bình năm 2009 Trong máy tính, để tiết kiệm bộ nhớ, người ta thường tìm cách nén dữ liệu. T...
-
Phân tích số nguyên dương thành tổng các số hạng của dãy Fibonaci sao cho ít số hạng nhất (các số hạng không được trùng nhau). Xem clip hư...
-
(Tuyến sinh phổ thông năng khiếu 2007) Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy.Cho một dãy gồm N số nguyên a1, a2, …, aN, mỗi số có gi...
-
Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại. Xuất ra kết quả là số Y mod 19 Input Output ...
-
Một chuỗi được gọi là có dạng phân số nếu nó có dạng như sau: Tử_số/Mẫu_số. Ví dụ: chuỗi ‘123/456’ biểu diễn cho phân số chuỗi ‘1/12’ biể...
-
Bảng của đồng hồ điện tử gồm một dãy ba số h, p và s thể hiện tương ứng giờ, phút và giây của thời điểm hiện tại. Cứ sau mỗi giây giá t...
Uses crt;
Trả lờiXóaVar n,g,i,j,max:longint;
den,di,dem:array[1..10000] of longint;
Begin
Write('So xe tai ben:');readln(n);
For i:=1 to n do
Begin
Writeln('Xe:',i);
Write('Gio den:');readln(den[i]);
Write('Gio di:');readln(di[i]);
end;
Write('Gio can thong ke:');readln(g);
For i:=1 to 24 do
For j:=1 to n do
If (den[j]<=i)and(i<=di[j]) then dem[i]:=dem[i]+1;
Writeln('Tong so xe dang dau tai ben ',g,' gio la:',dem[g]);
Write('Do la xe so:');
For i:=1 to n do
If (den[i]<=g)and(g<=di[i]) then Write(i,' ');
For i:=1 to 24 do
If dem[i]>max then max:=dem[i];
Writeln;
Writeln('Xe tap trung dong nhat vao luc:');
For i:=1 to 24 do
If dem[i]=max then
Begin
Write(i,' Gio:');
For j:=1 to n do
If (den[j]<=i)and(i<=di[j]) then Write(j,' ');
Writeln;
end;
readln;
end.