Bài 1: Viết chương trình nhập vào một dãy số nguyên n số. Nhập thêm một số và chèn nó vào phía sau phần tử thứ k Bài 2: Viết chương trình nhập vào một dãy số nguyên n số. Xóa đi số thứ k và in ra màn hình dãy số mới

Bài 1:

program oken;
uses crt;
var  a: array [1..100] of integer;
     n,k,i,m: integer;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('a[',i,']: ');
                        readln(a[i]);
                end;
        write('nhap vi tri chen them so: '); readln(k);
        write('nhap so chen vao: '); readln(m);
        for i:=1 to n do
          begin
            if i=k then write(m,' ');
            write(a[i],' ');
          end;
        readln;
end.

Bài 2:

program oken;
uses crt;
var  a: array [1..100] of integer;
     n,k,i: integer;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('a[',i,']: ');
                        readln(a[i]);
                end;
        write('day so cua mang: ');
        for i:=1 to n do write(a[i],' ');
        writeln;
        write('nhap vi tri so can xoa: '); readln(k);
        write('day so cua mang sau khi xoa: ');
        for i:=1 to k-1 do
            write(a[i],' ');
        for i:=k+1 to n do
            write(a[i],' ');
        readln;
end.