de thi hoc sinh gioi o tinh minh

[memberdota]

[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.

cho một mảng! tim trong mang xem phần tử nào đươc lặp lại nhiều lần .
dòng đầu in ra phần tử đó, dòng thứ 2 in ra số lần lặp lại của phần tử đó@@@ làm jum` mình nha'!//

 

[hung1xpro96]

Trả lời

Bạn xem thử bài giải này đúng không vậy ?

Type mg=Record
  x,y:Integer;
End;
Var max,dem,i,j,n,m:Integer;
    a:array[1..100] Of Integer;
    b:array[1..100] Of mg;
    dd:array[1..100] Of Boolean;
    f,g:text;
Procedure nhap;
 Var i,j:Integer;
  Begin
   Writeln('nhap phan tu');
   Readln(n);
   For i:=1 to n do
    Begin
     Write('nhap phan tu thu ',i,' : ');
     Read(a[i]);
     Readln;
    End;
   Fillchar(dd,sizeof(dd),false);
  End;
Procedure ktra(t:Integer);
 Var i,j:Integer;
  Begin
   dd[t]:=true;
   inc(dem);
   b[dem].x:=t;
   b[dem].y:=1;
   For i:=1 to n do
    If dd[i]=false then
     If a[i]=a[t] then
      Begin
       inc(b[dem].y);
       dd[i]:=true;
      End;
  End;
Begin
 nhap;
 dem:=0;
 max:=0;
  For i:=1 to n do
   If dd[i]=false then ktra(i);
  For i:=1 to n do
   If b[i].y > max then max:=b[i].y;
  For i:=1 to n do
   If b[i].y=max then
    Begin
     Writeln(b[i].x);
     Writeln(b[i].y);
     break;
    End;
   Readln;
 End.

 

[p_trk]

procedure init;
   begin 
        Fillchar(d,sizeof(d),true);
   end;
procedure xd;
  begin
        for i:=1 to n do 
           if d[i]:=true then 
             for j:=i to n do 
               if a[j]=a[i] then 
                      begin
                          d[j]:=false;  
                         dem:=dem+1; 
                          if dem>max then begin max:=dem; kq:=a[i] end;
                     end;
end;