Câu 1:

program mang_chiahet3;

uses crt;

var A:array[1..100] of integer;

     n,i:byte;

     s:longint;

begin

        clrscr;

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

        s:=0;

        for i:=1 to n do

                begin

                        write('A[',i,']= ');   readln(A[i]);

                        if A[i] mod 3=0 then s:=s+A[i];

                end;

        write('Mang vua nhap la: ');

        for i:=1 to n do

                write(A[i],' ');

        writeln;

        write('Tong cac phan tu chia het cho 3 la: ',s);

        readln;

end.

Câu 2:

program thay_the;

uses crt;

var s:string[200];

      vt:byte;

begin

        clrscr;

        write('Nhap xau: ');   readln(s);

                while pos('ha noi',s)<>0 do

                        begin

                                vt:=pos(ha noi',s);

                                delete(s,vt,6);

                                insert('ninhgiang',s,vt);

                        end;

                write('Xau sau khi thay the la: ',s);

        readln;

end.

uses crt;
var i:longint; s:string;
begin
clrscr;
   write('s= ');readln(s);
   while pos('ha noi',s)<>0 do
      begin
         i:=pos('ha noi',s);
         delete(s,i,6);
         insert('ninhgiang',s,i);
      end;
   writeln(s);
readln
end.