Uses crt; Var A:array[1..10000] of longint; N,i,s: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End; s:=0; For i:=1 to n do If A[i]=8 then inc(s); Write('Co ',s,' gia tri bang 8'); Readln End.
