Bài 1:

var n,k,i,t:integer;

       a: array[1..100000] of integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i, ': ');

read(a[i]);

end;

writeln;

write('Nhap k va phan tu can chen: '); readln(k,t);

for i:=k+2 to n+1 do

a[i]:=a[i-1];

a[k+1]:=t;

readln;

end.

Bài 2:

var a:array[1..10000] of longint;

      n,i,k:longint;

begin

write('Nhap n,k: '); readln(n,k);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i, ': ');

read(a[i]);

end;

writeln('Mang sau khi xoa phan tu thu k la');

for i:=1 to n do

if i<>k then write(a[i],' ');

readln;

end.

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.