uses crt;

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

    i, n, S, c, l, d, x : longint;

begin

clrscr;

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

for i := 1 to n do

    begin

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

        S := S + A[i];

        if A[i] mod 2 = 0 then c := c + 1 else l := l + 1;

        x := A[i] div 10;

        if (x >= 1) and (x <= 9) then d := d + 1;

    end;

writeln('So luong so chan = ', c);

writeln('So luong so le = ', l);

writeln('Tong cac phan tu = ', s);

write('So luong so co hai chu so = ', d);

readln

end.

uses crt;
var a:array[1..1000] of integer;
i,n,chan,le,t,dem:integer;
begin
    clrscr;
    write('n= ');readln(n);
    chan:=0;le:=0;t:=0;dem:=0;
    for i:=1 to n do
        begin
            write('A[',i,']=');readln(a[i]);
            if a[i] mod 2 = 0 then inc(chan) else inc(le);
            t:=t+a[i];
            if (10<=a[i]) and (a[i]<100) then inc(dem);
        end;
     writeln('Co ',chan,' so chan');
     writeln('Co ',le,' so le');
     writeln('Tong day so: ',t);
     writeln('Co ',dem,' so co 2 chu so');
readln;
end.