Nhập 1 dãy số, in ra tần số xuất hiện của từng phần tử Nhờ các cao nhân giải giúp

0 bình luận về “Nhập 1 dãy số, in ra tần số xuất hiện của từng phần tử Nhờ các cao nhân giải giúp”

1. program tan_so;

   uses crt;

   var A:array[0..1000] of integer;

        n,i,j,d,tg:integer;

   begin

          clrscr;

          write(‘Nhap so luong phan tu: ‘);  readln(n);

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                 end;

          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;

          i:=1;

          while i<=n do

                 begin

                        if A[i]<>A[i+1] then

                               begin

                                      d:=0;  j:=i;

                                      while A[j]=A[i] do

                                             begin

                                                    d:=d+1;

                                                    j:=j-1;

                                             end;

                                      writeln(A[i],’ : ‘,d);

                               end;

                        i:=i+1;

                 end;

          readln;

   end.

          

   Bình luận