Dinh Can's Blog

Viết chương trình nhập vào từ bàn phím N số tự nhiên (với 10 <= N <= 40). Xuất ra màn hình số có số lần xuất hiện nhiều nhất và số lần xuất hiện tương ứng.

            Lưu ý: Trong trường hợp có nhiều kết quả đúng theo yêu cầu thì in ra kết quả của số có giá trị lớn nhất.

Chương trình ví dụ:

            Ban muon nhap day so N gom bao nhieu so: 12

            Moi ban nhap lan luot cac so: 9 52 11 11 52 11 9 6 11 52 52 6

            So xuat hien nhieu nhat la so: 52 voi so lan xuat hien la: 4

CODE THAM KHẢO:

program solanxuathien;

uses crt;

var A: array[1..100] of integer;

    i,n,dem,dem1,j,k: integer;

begin

    clrscr;

    Repeat

        write('Nhap N = '); readln(n);

        if (n < 10) or (n>40) then writeln('So khong hop le. Moi ban nhap lai!!');

    until (n>=10) and (n<=40);

    for i:=1 to n do

    begin

        write('A[',i,']= ');

        readln(A[i]);

    end;

    for i:=1 to n do

    begin

        dem:=0;

       for j:=1 to n do

        if A[i] = A[j] then dem:=dem+1;

        if (dem1 <= dem) and (A[i] > k) then

        begin

            dem1:=dem;

            k:=A[i];

        end;

    end;

    writeln('So xuat hien nhieu nhat la: ',k,' voi so lan xuat hien la: ',dem1);

    readln;

end.