uses crt; var a: array[1..100] of integer; i,n,k: integer;
d: byte;
begin clrscr; write('nhap n: '); readln(n);
write('nhap k: '); readln(k);
for i:=1 to n do begin write('nhap phan tu thu ',i,': '); readln(a[i]); end; for i:=1 to n do if a[i]=k then d:=d+1; write('so lan xuat hien cua so ',k,' trong mang la: ',d); readln; end.
uses crt; var a:array[1..10000] of integer; n,i,k,d:integer; begin clrscr; d:=0; write('Nhap n: '); readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': '); readln(a[i]); end; write('Nhap k: '); readln(k); for i:=1 to n do if a[i]=k then d:=d+1; write('So lan xuat hien cua ',k,' la: ',d); readln; end.
