program bai_giai; uses crt; var a:array[1..1000] of integer; n,i,dem:integer; begin clrscr; write('Nhap N: '); readln(n); write('Nhap day: '); for i:=1 to n do read(a[i]); dem:=0; for i:=1 to n do if a[i]=5 then dem:=dem+1; write(dem); readln; readln; end.
