Cách 1: Xóa phần tử thứ k
uses crt;
var f:text; i,k,n:longint; a:array[1..100000000]of longint;
begin
clrscr;
write('n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
end;
write('k= ');readln(k);
for i:=k to n-1 do a[i]:=a[i+1];
for i:=1 to n-1 do write(a[i],' ');
readln
end.
Cách 2: Không xóa mà chỉ không xuất a[k] (tham khảo):
uses crt;
var f:text; i,k,n:longint; a:array[1..100000000]of longint;
begin
clrscr;
write('n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
end;
write('k= ');readln(k);
for i:=1 to n do if i<>k then write(a[i],' ');
readln
end.
