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.

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;

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.