Một dãy số gồm N số nguyên dương . In ra số lần xuất hiện các phần tử có trong dãy số.

0 bình luận về “Một dãy số gồm N số nguyên dương . In ra số lần xuất hiện các phần tử có trong dãy số.”

1. uses crt;
   var i,n,d,j:longint; a:array[1..1000]of longint;
   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:=1 to n do if a[i]=a[j] then inc(d);
            writeln(a[i],’: ‘,d);
         end;
   readln
   end.   

   Bình luận