program bai_tap_mang;

uses crt;

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

      n,i,da,t,min,max:integer;

begin

       clrscr;

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

       for i:=1 to n do

              begin

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

              end;

       max:=A[1];  min:=A[1];   t:=0;   da:=0;

       for i:=1 to n do

              begin

                     if A[i] mod 2=0 then t:=t+A[i];

                     if A[i]<0 then da:=da+1;

                     if A[i]<min then min:=A[i];

                     if A[i]>max then max:=A[i];

              end;

       writeln('a. Tong cac phan tu chan la: ',t);

       writeln('b. Co ',da,' so am');

       writeln('c. Min= ',min,' va Max= ',max);

       readln;

end.

program mang;

uses crt;

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

      n,i,T,d,min,max: integer;

Begin

        clrscr;

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

        min:=1; max:=1;

        for i:=1 to n do

        begin

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

                 if C[i] mod 2=0 then T:=T+C[i];

                 if C[i]<0 then d:=d+1;

                 if min>C[i] then min:=C[i];

                 if max<C[i] then max:=C[i];

        end;

        writeln('a) Tong cac so chan = ',T);

        writeln('b) Co ',d,' so am');

        writeln('c) min = ',min);

        write('   max = ',max);

        readln

End.