Program FNG; Uses crt; Var A: array[1..1000] of longint; n,i,k,d: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); Write('Nhap k: '); Readln(k); d:=0; For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); If A[i]<k then inc(d); End; Write('Co ',d,' phan tu be hon ',k); Readln End.
uses crt; var n,i,k,d:longint; a:array[1..1000000]of longint; begin clrscr; write('k=');readln(k); write('n=');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); if a[i]<k then inc(d); end; writeln('Co ',d,' phan tu'); readln end.
