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

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.