Câu 1

uses crt;

var a:array[1..250]of integer;

i,n,dem,t:integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

{-----------------------------xu-ly------------------------------}

dem:=0; t:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin

inc(dem);

t:=t+a[i];

end;

writeln('so phan tu chan trong day la: ',dem);

writeln('tong cac phan tu chan trong day la: ',t);

readln;

end.

Câu 2

uses crt; {thu vien dung cho viec xoa man hinh}

var  Dem:array[‘A’..‘Z’] of integer;

____S: String;

____ch: char;

____i: integer;

begin

____clrscr; {lenh xoa man hinh}

____write(‘Nhap xau S: ’);

____readln(S);

       _for ch:= ‘A’ to ‘Z’ do

_______Dem[ch]:= 0;

      _ for i:=1 to length(S) do

         begin

            if S[i] in ([‘a’..‘z’]) then {co the thay bang if (S[i] >= ‘a’) and (S[i] <= ‘z’) then}

               begin

_________ch:=upcase(S[i]);

_________Dem[ch]:= Dem[ch]+1;

               end;

          end;

         {for ch:= ‘A’ to ‘Z’ do

                    write(‘So lan xuat hien cua ’,ch, ‘ trong xau la ’, Dem[ch]);}

____writeln(‘So lan xuat hien cua cac chu cai trong xau la: ‘);

           for ch:= ‘A’ to ‘Z’ do

_______write(ch:3);

____writeln;

          for ch:= ‘A’ to ‘Z’ do

_______write(Dem[ch]:3);

____readln

end.

Bài 3 – Sgk – Tr73: Nhập vào từ bàn phím một xâu. Thay thế tất cả các cụm kí tự “anh” bằng cụm kí tự “em”.

Chương trình:

uses crt;

var  St: String;

___Vt: byte;

begin

____clrscr;

____write(‘Nhap xau St: ’);

____readln(St);

        _while pos(‘anh’,St)<>0 d0{ con tim thay tu ‘anh’ trong xau St}

              begin

________Vt:=pos(‘anh’,St);

________Delete(St,vt,3);

________Insert(‘em’,St,vt);

             end;

____write(‘Xau thay the la: ‘, St);

____readln

end.

Câu 1:

program cau1:

uses crt;

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

      n,i,j,dem:integer;

begin clrscr;

   writeln('Nhap so n: '); readln(n);

   for i:=1 to n do

     begin

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

     end;

   dem:=0; j:=0;

   for i:=1 to n do

     if A[i] mod 2=0 then

       begin

          inc(dem);

          j:=j+A[i];

       end;

   writeln('Cac phan tu chan cua mang A la: ',dem);

   writeln('Tong cac phan tu chan cua mang A la: ',j);

readln;

end.

Câu 2:

program cau2;

uses crt;

var A:array[‘a’..‘z’] of integer;

      S:String;

      C:char;

      i:integer;

begin clrscr; 

   writeln(‘Nhap xau S: ’); readln(S);

     for ch:= ‘a’ to ‘z’ do

       A[C]: 0;

     for i:=1 to length(S) do

       begin

          if S[i] in ([‘a’..‘z’]) then

            begin

               C:=upcase(S[i]);

               A[C]:=A[C]+1;

            end;

        end;

   writeln(‘So lan xuat hien cac chu cai trong xau la: ‘);

     for C:= ‘a’ to ‘z’ do write(C:3);

     for C:= ‘a’ to ‘z’ do write(A[C]:3);

readln;

end.

Học tốt!