Nhập vào một mảng,in ra màn hình số lần xuất hiện của các phần tử trong mảng(pascal)

0 bình luận về “Nhập vào một mảng,in ra màn hình số lần xuất hiện của các phần tử trong mảng(pascal)”

1. uses crt;
   var a: array[1..100] of integer;
   n,i,d,j:integer;
   begin
   clrscr;
   write(‘nhap n: ‘);  readln(n);
   for i:=1 to n do
   begin
   write(‘Nhap a[‘,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
   d:=a[i];
   a[i]:=a[j];
   a[j]:=d;
   end;
   d:=1;
   for i:=1 to n do
   if a[i]<>a[i+1] then
   begin
   writeln(a[i],’ => ‘,d,’ lan’);
   d:=1;
   end
   else d:=d+1;
   readln;
   end.

   Bình luận

2. program xuat_hien;

   uses crt;

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

        n,i,d,j:integer;

   begin

         clrscr;

         write(‘Nhap n: ‘);  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

                                 d:=A[i];

                                 A[i]:=A[j];

                                 A[j]:=d;

                           end;

         d:=1;

         for i:=1 to n do

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

                     begin

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

                           d:=1;

                     end

               else d:=d+1;

         readln;

   end.

   Bình luận