program bai_giai; uses crt; var a:array[1..1000] of integer; n,i,k,dem:integer; begin clrscr; write('Nhap N: '); readln(n); write('Nhap day: '); for i:=1 to n do read(A[i]); write('Nhap k: '); readln(k); dem:=0; for i:=1 to n do if A[i]=k then dem:=dem+1; write('Co ',dem,' so bang ',k); readln; end.
uses crt; var n,i,k,d:longint;a:array[1..1000]of longint; begin clrscr; d:=0; write('nhap so phan tu cua day so:');readln(n); for i:=1 to n do begin write('nhap phan tu thu ',i,':');readln(a[i]);end; write('nhap so k:');readln(k); k:=a[k]; for i:=1 to n do if(a[i]=k)then inc(d); writeln(d); readln; end.
\\có thể là bài của em sẽ giống với mọi người xin các mod đừng xoá bài của em//
