Câu 1 hãy viết chương trình nhập vào một mảng A gồm N phần tử (N<=250). hiển thị ra màn hình các phần tử chẵn của mảng A. tính tổng của các phần tử của mảng là bội số của một số nguyên dương k cho trước. Câu 2 viết chương trình nhập vào từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiếng anh trong S(không phân biệt chữ hoa hay chữ thường). Mong mọi người giúp đỡ em đang cần gấp ạ

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!