viết chương trình nhập vào số nguyên gồm n phần tử a)nhập giá trị cần xóa x ,xóa phân tử có giá trị x,xuất mảng sau khi xóa b)nhập giá trị cần thêm là y,vị trí cần thêm là k,thêm y vào mảng tại vị trí k và xuất mảng xau khi thêm
viết chương trình nhập vào số nguyên gồm n phần tử a)nhập giá trị cần xóa x ,xóa phân tử có giá trị x,xuất mảng sau khi xóa b)nhập giá trị cần thêm là y,vị trí cần thêm là k,thêm y vào mảng tại vị trí k và xuất mảng xau khi thêm
var a:array[1..200000]of longint;
i,n,,k1,k2:longint;
begin
writeln(‘nhap so phan tu cua mang’);readln(n);
writeln(‘nhap lan luot so phan tu cua mang’);
for i:=1 to n do
readln(a[i]);
writeln(‘nhap so can xoa ‘);readln(k1);
for i:=1 to n do
if a[i] =k1 then begin
for k2:=i+1 to n do
a[k2-1]:=a[k2];
n:=n-1;
end;
writeln(‘mang sau khi xoa cac phan tu mang gia tri cua x’);
for i:=1 to n do
write(A[I],’ ‘);
writeln;writeln(‘nhap gia lan luot gia tri can them va vi tri them’);
readln(k1,k2);
for i:=k2 to n do
a[i+1]:=a[i];
n:=n+1;
a[k2]:=k1;
writeln(‘mang sau khi chen gia tri y’);
for i:=1 to n do
write(a[i],’ ‘);
readln;
end.