Viết chương trình nhập số nguyên x đếm xem trong dãy số có bao nhiêu số bằng x.

0 bình luận về “Viết chương trình nhập số nguyên x đếm xem trong dãy số có bao nhiêu số bằng x.”

1. uses crt;

   var n,i,dem:longint;

   a:array[1..100] of real;

   x:real;

   begin

   clrscr;

   write(‘nhap n:’);readln(n);

   writeln(‘nhap day so thuc:’);

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]=’);readln(a[i]);

   end;

   write(‘nhap x:’);readln(x);

   dem:=0;

   for i:=1 to n do

   if a[i]<=x then dem:=dem+1;

   if dem=0 then write(‘trong day khong co so khong lon hon ‘,x:2:2)

   else write(‘co ‘,dem,’ so trong day khong lon hon ‘,x:2:2);

   readln;

   Bình luận

2. uses crt;
   var A:array[1..1000] of integer;
       i,n,x,dem:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      write(‘Nhap x: ‘); readln(x);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         if A[i]=x then inc(dem);
      end;
      if dem=0 then write(‘Khong co so nao bang ‘,x,’ trong day’)
      else write(‘Co ‘,dem,’ so bang ‘,x,’ trong day’);
      readln
   end.

   Bình luận