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.
