huhu

program test;
var i, n, soCacSoLe : integer; {i: bien dem ; n: so nguyen nhap tu ban phim ; soCacSoLe : so cac so le trong day so}
    tong : longint; {tong : tong cua cac so le trong day so}
    A : array [1..100] of integer;
begin
    {Nhap do dai cho day so}
    write('Do dai cua day so: ');
    read(n);

    {Nhap gia tri cho day so}
    writeln('Nhap gia tri cho day so >');
    for i:=1 to n do
        begin
            write('So thu [', i, '] : ');
            read(A[i]);
        end;

    {In ra man hinh day so do}
    writeln('In ra man hinh day so do >');
    for i:=1 to n do writeln(A[i]);

    {Tong cac so le trong day so}
    tong:=0;
    soCacSoLe:=0;
    for i:=1 to n do
        begin
            if (A[i] mod 2 <> 0) then
                begin
                    s:=s + A[i];
                    soCacSoLe:=soCacSoLe + 1;
                end;
        end;
    writeln('Tong cac se le: ' s/soCacSoLe);
    readln;
end.