Lập trình vào một mảng gồm n phần tử (n<25) mỗi phần tử là một số nguyên nhỏ hơn 100. Đếm xem có baonh phần tử <k, =k (với k là một số nguyên dương cho trước)

Program BTT;
Uses crt;
Var A: array[1..24] of longint;
    n,d,s,i,k: longint;
Begin
        Clrscr;
        Write('Nhap n,k: '); Readln(n,k);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]<k then inc(d);
                If A[i]=k then inc(s);
        End;
        Writeln('<k: ',d);
        Write('=k: ',s);
        Readln
End.

var n,i,k,x,y:byte;

    a: array [1..25] of byte;

begin

write('Nhap n: '); readln(n);

write('Nhap k: '); readln(k);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' : '); read(a[i]);

if a[i]<k then inc(x);

if a[i]=k then inc(y);

end;

writeln;

writeln('So phan tu <k la: ',x);

write('So phan tu =k la: ',y);

readln;

end.