Bài 1:

uses crt;

var n,i,dem:byte;

a:array[1..100] of integer;

    k:integer;

BEGIN

        clrscr;

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

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

        end;

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

        dem:=0;

        for i:=1 to n do

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

        write('Co ',dem,' phan tu co gia tri bang k.');

        readln

END.

Bài 2:

uses crt;

var n,i,j:byte;

a:array[1..100] of integer;

    k:integer;

BEGIN

        clrscr;

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

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

        end;

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

        i:=1;

        while i<=n do

                if a[i]=k then

                begin

                        for j:=i to n-1 do

                        a[j]:=a[j+1];

                        dec(n);

                end

                else inc(i);

        write('Mang sau khi xoa k:');

        for i:=1 to n do write(a[i],' ');

        readln

END.

Chúc bạn học tốt!

b1

uses crt;
var n,k,i,d:longint;
 a:array [0..100000]of longint;

begin
        clrscr; 
        read(n,k);
        d:=0;
        for i:=1 to n do
        begin
                read(a[i]);
                if (a[i]=k) then inc(d);
        end;
        write(d);
        readln; 
end.

b2

uses crt;
var n,k,i,d:longint;
 a:array [0..100000]of longint;

begin
        clrscr;
        read(n,k);
        d:=0;i:=0;
        while(i<n) do
        begin
                read(a[i]);
                if (a[i]=k) then begin
                dec(i);dec(n);
                end;
                inc(i);
        end;
        for i:=0 to n-1 do
        write(a[i],' ');
        readln; 
end.