nhập mảng rồi xóa số thứ k trong n số số vừa nhập.In ra n-1 số còn lại.
2 câu trả lời
var a:array[1..1000] of longint;
i,k,n:longint;
begin
write('nhap so phan tu cua mang ');readln(n);
readln(k);
for i:=1 to n do read(a[i]);readln;
for i:=1 to n do
if i<>k then write(a[i],' ');
readln
end.
uses crt;
var i,n,k:longint;
begin
clrscr;
readln(n,k);
for i:=1 to n do read(a[i]);
for i:=1 to n do if i<>k then write(a[i],' ');
readln
end.
