Program TenCT;
Uses crt;
Var  A: array[1..100] of longint;
       i,n,max,tong:longint;
Begin
         Clrscr;
         Write('a. Nhap so phan tu cua day n= '); readln(n);
         For i:=1 to n do
           begin
             write('A[',i,']= '); readln(A[i]);
           end;
         writeln;
         max:=A[1];
         tong:=0;
         For i:=1 to n do
           begin
             if max<A[i] then max:=A[i];
             if (A[i] mod 2=0) then tong:=tong+A[i];
           end;
         Writeln('b. Phan tu lon nhat trong day vua nhap la: ',max);
         Writeln('c. Tong cac phan tu cua day vua nhap la: ',tong);
         Readln;
End.