cho 1 dãy N số nguyên a1,a2,a3,…,aN.Hãy in ra số lần xuất hiện có các giá trị ai(0<=ai<100) Lưu ý: nhập n (100<=n<10^8) In ra 100 số nguyên dương th

0 bình luận về “cho 1 dãy N số nguyên a1,a2,a3,…,aN.Hãy in ra số lần xuất hiện có các giá trị ai(0<=ai<100) Lưu ý: nhập n (100<=n<10^8) In ra 100 số nguyên dương th”

1. program cap_so_cong; 
   uses crt; 
   var a: array[1..100] of integer; 
   i, n, k: integer; {i la bien dem, k de luu cap so} 
   begin 
   clrscr; 
   write(‘N= ‘); readln(n); 
   for i:=1 to n do 
   begin 
   write(‘A(‘,i,’)= ‘); readln(a[i]); 
   end; 
   {Bat dau phan kiem tra} 
   k:=a[2]-a[1]; 
   i:=2; 
   repeat 
   i:= i+1; 
   until (a[i]<>a[i-1]+k) or (i>n); 
   if i>n then write(‘Day A la mot cap so cong’) 
   else write(‘Day A khong phai la mot cap so cong’); 
   readln 
   end. 

   Bình luận

2. program dem_xuat_hien;

   var f,g:text;

         A:array[1..100000] of byte;

         n:integer;

         i:byte;

   function dem(so:byte):integer;

   var j:integer;

   begin

          dem:=0;

          for j:=1 to n do

                 if A[j]=so then dem:=dem+1;

   end;                                                                                                                                                                             HỌC TỐT!!

   5 sao và ctlhn nhé@@

   Bình luận