Tin học Đếm số lần xuất hiện pascal

[Nhật Hạ !]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Các bạn sửa chương trình dùm mình với... mình làm vậy thầy bảo là đếm sai số lần xuất hiện rồi... mà mình thử lại k thấy sai.
Đề: Viết chương trình nhập vào 1 mảng số nguyên (lấy từ tệp) rồi xuất ra:
Số xuất hiện nhiều nhất và số lần xuất hiện;
Các số nguyên tố có trong dãy vừa nhập;

Function nt(n:longint):boolean;
var i:longint;
Begin
nt:=false;
If n<2 then exit;
For i:=2 to trunc(sqrt(n)) do
  If n mod i = 0 then exit;
nt:=true;
End;
Var a:array[1..100] of integer;
n,i,d,j,l,max:longint;  f,g:text;
Begin
ASSIGN(f,'D:\Nhatha\bai1.inp');reset(f);
ASSIGN(G,'bai1.out');rewrite(g);
Readln(F,n);
For i:=1 to n do
        Read(F,a[i]);
For i:=1 to n do
        Begin
        d:=0;
        For j:=1 to n do
        If a[i]=a[j] then inc(d);
        If d>max then Begin max:=d; l:=a[i] end;
        End;
Writeln(g,'So ',l,' xuat hien nhieu nhat ');
Writeln(g,'So ',l,' xuat hien ',d,' lan ');
Writeln(g,'Cac so nguyen to la: ');
For i:=1 to n do
        If nt(a[i]) then write(g,a[i],'  ');
Readln;
End.

 

[CuongGrove]

Bạn in ra d thay vì in ra max kìa )))), nếu in ra d thì nó chỉ đúng với các trường hợp số có số lần lặp lớn nhất được đặt ở cuối cùng
Bạn hãy thử dãy 1 1 1 2 3 thì sẽ thấy sai ngay. Mình đoán là bạn chỉ thử các dãy như 1 2 3 3 hay 2 3 4 5 5.

 

[CuongGrove]

Mà bạn nghĩ ra chỗ max đó hay thật, mình làm cái bài cũng giống giống thế này mà suy nghĩ lạc trôi đi đâu ấy )))))

 

[CuongGrove]

Bạn in ra d thay vì in ra max kìa )))), nếu in ra d thì nó chỉ đúng với các trường hợp số có số lần lặp lớn nhất được đặt ở cuối cùng
Bạn hãy thử dãy 1 1 1 2 3 thì sẽ thấy sai ngay. Mình đoán là bạn chỉ thử các dãy như 1 2 3 3 hay 2 3 4 5 5.