Ai học giỏi tin giúp em với ạ Câu2. cho một dãy N (0<=N<=50), viết chương trình Đưa ra màn hình dãy vừa nhập trên 1 dòng Đưa ra màn hình các số chẵn của dãy Đưa ra màn hình tổng các số lẻ chia hết cho 3 Câu3. Cho xâu A. Tìm các chữ viết hoa của xâu rồi đưa ra màn hình

program oken;

uses crt;

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

      i,n,tong:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

   begin

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

   end;

for i:=1 to n do

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

tong:=0;

writeln;

for i:=1 to n do

   if (a[i] mod 2=0) then write(a[i],' ')

   else

           if (a[i] mod 3=0) then tong:=tong+a[i];

writeln('tong cac so chia het cho 3 trong mang: ',tong);

readln;

end.

`2)`

uses crt;

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

t,i,n:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=50);

for i:=1 to n do

begin

repeat

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

until (0<=a[i]) and (a[i]<=32767);

end;

writeln('Day A=');

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 2=1 then t:=t+a[i];

writeln('Tong cac so le la: ',t);

writeln('Cac so le trong day A la: ');

for i:=1 to n do

if a[i] mod 2=1 then write(a[i]:4);

readln;

end.

`3)`

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

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

d:=length(s);

for i:=1 to d do 

 s[i]:=upcase(s[i]);

writeln(s);

readln;

end.