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..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.
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.