Bài 1:
Program Tenchuongtrinh;
Uses crt;
Var A: array[1..100] of longint;
      i,n,dem:longint;
Begin
         Clrscr;
         Write('Nhap so phan tu cua day n= '); readln(n);
         For i:=1 to n do
           begin
             write('A[',i,']= '); readln(A[i]);
           end;
         dem:=0;
         For i:=1 to n do
           if (A[i] mod 2=0) then 
             begin
               write(A[i],' ');
               dem:=dem+1;
             end;
         Writeln('So luong cac so chia het cho 2 la: ',dem);
         Readln;
End.
Bài 2:
Program Tenchuongtrinh;
Uses crt;
Var A: array[1..100] of real;
      i,n,tong:longint;
Begin
         Clrscr;
         Write('Nhap so phan tu cua day n= '); readln(n);
         For i:=1 to n do
           begin
             write('A[',i,']= '); readln(A[i]);
           end;
         tong:=0;
         For i:=1 to n do
           if (A[i]>0) then tong:=tong+A[i];
         Writeln('Tong la: ',tong);
         Readln;
End.