Thống kê

Tin học trẻ Bến Tre 2009 - Bài 1
Phòng giáo dục quản lý học sinh các cấp học:Mầm non, Tiêủ học và trung học cơ sở. Số lượng học sinh quản lý có độ tuổi từ 3 đến 15 tuổi. Để phục vụ cho việc báo cáo, phòng GD cần thống kê số học sinh theo từng độ tuổi.
Yêu cầu:Hãy viết chương trình giúp phòng GD thống kê số lượng học sinh theo từng độ tuổi.
Dữ liệu:cho từ file văn bản có tên THONGKE.INP với cấu trúc sau:
- Dòng đầu tiên ghi số N (N<10000) là số lượng học sinh mà phòng quản lý
- Dòng thứ hai ghi N số tương ứng là số tuổi của N học sinh, mỗi số cách nhau ít nhất một khoảng cách.
Kết quả: ghi ra file văn bản THONGKE.OUT gồm nhiều dòng, mỗi dòng ghi 2 số: số thứ nhất là độ tuổi, số thứ hai là số lượng học sinh ở độ tuổi đó.
VD:
      THONGKE.INP                                       THONGKE.OUT
          13                                                                  3 4
          3 4 12 3 5 13 5 3 12 15 3 8 15                      4 1
                                                                                5 2
                                                                                8 1
                                                                                12 2
                                                                                13 1
                                                                                15 2

                                                           Giải
 
Program THONGKE; + chr$(13) + chr$(10) + _
Var F: text;
    t, i, j, gan, dem: longint;
    a: array [1.. 1000] of longint;
BEGIN
Assign(F,'THONGKE.INP');
Reset(F);
Readln(F,t);
For i:= 1 to t do
    Read(F,a[i]);
Close(F);
Assign(F,'THONGKE.OUT');
Rewrite(F);
For i:= 1 to t- 1 do
    For j:= i+ 1 to t do
        If a[i]> a[j] then
           Begin
                gan:= a[i];
                a[i]:= a[j];
                a[j]:= gan;
           End;
For i:= 1 to t do
    If a[i]= a[i+ 1 ] then dem:= dem+ 1
    Else
        Begin
             If dem<> 0 then Writeln(F,a[i],' ',dem);
             dem:= 1;
        End;
Close(F);
END.