BÀI TẬP 39: THỐNG KÊ

Phòng giáo dục quản lý học sinh các cấp học: Mầm non, Tiểu học, THCS. Số học sinh có độ tuổi từ 3 đến 15 tuổi. Để phục vụ cho việc báo cáo, phòng giáo dục 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 giáo dục thống kê số lượng học sinh theo từng độ tuổi.

            Dữ liệu: Cho file từ văn bản có tên INPUT.TXT có cấu trúc sau:

            - Dòng đầu ghi số N (N < 10000) là số lượng học sinh mà phòng giáo dục quản lý.

            - Dòng thứ 2 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 trắng.

            Kết quả: Ghi ra file văn bản OUTPUT.TXT 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 đó.

Ví dụ:

INPUT.TXT	OUTPUT.TXT
13 3 4 12 3 5 13 5 3 12 15 3 8 15	3 4 4 1 5 2 8 1 12 2 13 1 15 2

CODE THAM KHẢO:

var   a:array[1..1000000] of longint;

      n,i,j,k,d,tg: longint;

      kt:boolean;

      f:text;

begin

    assign(f,'input.txt'); reset(f);

    readln(f,n);

    for i:=1 to n do read(f,a[i]);

    close(f);

    assign(f,'ouput.txt'); rewrite(f);

    for i:=1 to n-1 do

    for j:=i+1 to n do

    if a[i] > a[j] then

    begin

        tg:=a[i];

        a[i]:=a[j];

        a[j]:=tg;

    end;

    for  i:=1 to n do

    begin

        kt:=true;

        for j:=1 to i-1 do if a[i]=a[j] then kt:=false;

        if kt then

        begin

            d:=0;

            for k:=1 to n do

            if a[i]=a[k] then d:=d+1;

            writeln(f,a[i],' ',d);

        end;

    end;

    close(f);

end.