Câu 1: Cho mảng một chiều gồm 10 phần tử thuộc kiểu kí tự, hãy viết chương trình tìm trong mảng các kí tự là ‘A’ hoặc ‘a’ hoặc ‘ B ‘ để ghi vào xâu S Câu 2: Cho mảng một chiều gồm 10 phần tử thuộc kiểu số nguyên, viết chương trình tìm các phần tử trong mảng chia hết cho 2 và 11 sau đó ghi vào sâu S Em cảm ơn ạ !!

Câu 1:

uses crt;
var a:array[1..10] of string; S:string;
    i:byte;
begin
   clrscr;
   for i:=1 to 10 do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(a[i]);
      if (a[i]='a') or (a[i]='A') or (a[i]='B')
      then S:=S+a[i];
   end;
      write('Xau S la: ',S);
      readln
end.

Câu 2:

uses crt;
var a:array[1..10] of integer; S,S1:string;
    i:byte;
begin
   clrscr;
   for i:=1 to 10 do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(a[i]);
      if (a[i] mod 2 = 0) and (a[i] mod 11 = 0)
      then begin
              str(a[i],S1);
              S:=S+S1;
           end;
   end;
   write('Xau S la: ',S);
   readln
end.