Viết chương trình nhập n số, xoá số thứ k trong n số vừa nhập.In ra n-1 số còn lại. n= 10 (Nhập 10 phần tử) Ví dụ: Nhập 2, 3, 4, 5, 6, 8, 7, 6, 5, 4. k= 8 (Xoá phần tử thứ 8). In ra: 2, 3, 4, 5, 6, 8, 7, 5, 4.
Viết chương trình nhập n số, xoá số thứ k trong n số vừa nhập.In ra n-1 số còn lại. n= 10 (Nhập 10 phần tử) Ví dụ: Nhập 2, 3, 4, 5, 6, 8, 7, 6, 5, 4. k= 8 (Xoá phần tử thứ 8). In ra: 2, 3, 4, 5, 6, 8, 7, 5, 4.
Uses crt;
Var a: array [1..100] of integer;
n, i, k: integer;
Begin
Clrscr;
Writeln(‘Nhap n’); Readln(n);
For i := 1 to n do
Begin
Writeln(‘a[‘, i, ‘]=’);
Readln(a[i]);
End;
Writeln(‘Nhap k =’); Readln(k);
For i := k to n-1 do
a[i] := a[i+1];
n := n – 1;
For i := 1 to n do
If i = 1 then
Writeln(a[i])
else Writeln(‘;’, a[i]);
Readln
End.
uses crt;
var a:array[1..1000] of longint;
i,n,k:word;
begin
clrscr;
write(‘n= ‘);readln(n);
for i:=1 to n do read(a[i]);readln;
write(‘k= ‘);readln(k);
for i:=k to n do a[i]:=a[i+1];
for i:=1 to n-1 do write(a[i],’ ‘);
readln;
end.