1. Viết chương trình nhập mảng gồm n (n<=100) phần tử rồi chèn vào một số bất kỳ vào một vị trí nào đó trong mảng, số cần chèn và vị trí chèn nhập từ bàn phím.

uses crt ;
 var a : array[1..100]of longint ;
  n,chen,i, vitri : longint ;
   begin
    clrscr ;
    write('nhap so luong phan tu: ');
     readln(n);
    write('nhap vi tri va so can chen: ');
     readln(vitri,chen);
    for i := 1 to n do
       begin
        write('nhap phan tu ',i,'=');
        readln(a[i]);
       end; 
    write('PHAN TU TRUOC KHI CHEN');
    for i :=1 to n do
        write(a[i]:3);
    writeln;
    for i :=n+1 downto vitri+1 do
        a[i]:=a[i-1];
        a[vitri] :=chen ;
        n:=n+1;
            write('PHAN TU SAU KHI CHEN');
    for i := 1 to n do
    write(a[i]:2);
         end.

2. Viết chương trình nhập mảng gồm n (n<=100) phần tử rồi xóa đi một phần tử nào đó có vị trí nhập từ bàn phím.

uses crt ;
 var a : array[1..100] of longint ;
  n,xoa,i : longint;
   begin
    clrscr ;
    write('nhap so luong phan tu: ');
     readln(n);
    write('nhap vi tri can xoa: ');            
     readln(xoa);
    for i :=1 to n do
        begin
         write('nhap phan tu thu ',i,'=');
         readln(a[i]);
        end ;
    writeln('Mang truoc khi xoa: ');
     for i :=1 to n do
        writeln(a[i]:2);
    for i:=xoa to  n-1 do 
          a[i] := a[i+1];
    n := n -1 ;
    writeln('Mang sau khi xoa: ');
     for i :=1 to n do 
      writeln(a[i]:2);
        end.

Câu 1:

Program Chen;

Uses crt;

Var i,spt, so,vitri: Integer;

A: Array[1..100] Of Integer;
Begin

Clrscr;

Writeln(' + CHEN MOT SO VAO MANG +');

Writeln('-------------------------------');

Write('-Co bao nhieu phan tu-: ');

Readln(spt);

For i:=1 To spt Do

Begin

Write('-Phan tu A[',i,']= ');

Readln(a[i]);

End;

Writeln;

Writeln('--MANG TRUOC KHI CHEN--');

For i:=1 To spt Do Write(a[i]: 6);

Writeln; Write('-Can che so: ');

Readln(so); Write('-Vao vi tri: '); Readln(vitri);

For i:=spt+1 Downto Vitri+1 Do Writeln;

a[i]:=a[i-1]; a[vitri]:=so; spt:=spt+ 1;

Writeln('MANG SAU KHI CHEN');

Readln;

For i:=1 To spt Do Write(a[i]: 6);

End.

Câu 2: 

rogram Xoa_Pt;

Var i,spt,vitri: Integer;

a: Array[1..100] Of Integer;

Begin Writeln('--XOA PHAN TU TRONG MANG--');

Writeln('------------------------------------------------------');

Writeln;

Write('-Mang co bo nhieu phan tu- ');

Readln(spt);

For i:=1 To spt Do

Begin Write('-Phan tu A[',i: 2,']= ');

Readln(A[i]); End; Writeln; Writeln(' --MANG TRUOC KHI XOA--');

Writeln('--------------------------------------------------------');

Writeln;

For i:=1 To spt Do Write(a[i]: 6);

Writeln;

Writeln;

Write('-Vi tri muon xoa: ');

Readln(vitri);

For i:=vitri to spt - 1 Do a[i]:=a[i+1]; spt:=spt - 1;

Writeln;

Writeln(' MANG SAU KHI XOA');

Writeln('- -----------------------------------');

Writeln; For i:=1 to spt Do

Write(a[i]: 6);

Writeln;

Writeln;

Writeln(' Bam phim de ket thuc ');

Readln

End.