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!
