BÀI TẬP 4: TÌM PHẦN TỬ XUẤT HIỆN NHIỀU NHẤT TRONG MẢNG

Nhập vào mảng A có N phần tử. Tìm phần tử xuất hiện nhiều nhất trong mảng.

CODE THAM KHẢO

program BT4;

uses crt;

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

    n,i,j,d,max,k: integer;

begin

    clrscr;

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

    for i:=1 to n do

    begin

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

        readln(A[i]);

    end;

    for i:=1 to n do

    begin

        d:=0;

        for j:=i to n do

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

        if d > max then

        begin

            max:=d;

            B[1]:=A[i];

            k:=1;

        end

        else if d = max then

            begin

                k:=k+1;

                B[k]:=A[i];

            end;

    end;

    write('So xuat hien nhieu nhat la: ');

    for i:=1 to k do write(B[i],' ');

    readln;

end.