a)

program Y_a;

uses crt;

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

      n,i,T: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         for i:=1 to n do

         begin

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

                  if A[i]>0 then T:=T+A[i];

         end;

         write('T = ',T);

         readln

End.

b)

program Y_b;

uses crt;

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

      i: integer;

Begin

         clrscr;

         for i:=1 to 5 do

         begin

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

         end;

         write('Cac phan tu co gia tri chan: ');

         for i:=1 to 5 do

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

         readln

End.

 ý a: 

uses crt;
var s,n,i: longint;
a: array[1..100] of integer;
begin
 clrscr;
 s:=0;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do begin
 write('a[',i,']='); readln(a[i]); end;
for i:=1 to n do
 if a[i]>0 then s:=s+a[i];
 writeln('Tong cac so nguyen duong trong mang la: ',s);
readln;
end.

ý b:

 uses crt;
var s,i: longint;
a: array[1..100] of integer;
begin
 clrscr;
 s:=0;
for i:=1 to 5 do begin { vì mảng chỉ có 5 phần tử nên chỉ cần 'to 5' }
 write('a[',i,']='); readln(a[i]); end;
 write('Cac phan tu chan la: ');
for i:=1 to 5 do
 if a[i] mod 2 = 0 then write(a[i],' ');
readln;
end.