Bài 1:

program tong_chan;

uses crt;

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

      i:byte;

      s:integer;

begin

        clrscr;

        s:=0;

        for i:=1 to n do

                begin

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

                        if A[i] mod 2=0 then S:=S+A[i];

                end;

        write('Tong cac phan tu chan trong mang A la: ',s);

        readln;

end.

Bài 2:

program kitu_B;

uses crt;

var s:string;

      i,d:byte;

begin

        clrscr;

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

        d:=0;

        for i:=1 to n do

                if (s[i]='B') or (s[i]='b') then d:=d+1;

        write(d);

        readln;

end.

1)

uses crt;

var  n:integer;

     tong:longint;

     i:byte;

BEGIN

        clrscr;

        tong:=0;

        for i:=1 to 7 do

        begin

                write('Nhap a[',i,']:');

                readln(n);

                if n mod 2=0 then

                tong:=tong+n;

        end;

        write(tong);

        readln

END.

2)

uses crt;

var st:string;

    d,i:byte;

BEGIN

        clrscr;

        write('Nhap xau St:'); readln(st);

        d:=0;

        for i:=1 to length(st) do

                if (st[i]='b') or (st[i]='B') then

                inc(d);

        write(d);

        readln

END.

Chúc bạn học tốt!