Uses    crt;
Var     a:array[1..10] of integer;
        b:array[-32768..32767] of integer;
        i,s: longint;
begin
    clrscr;
    for i := 1 to 10 do 
        begin
            write('a[',i,'] = ');
            readln(a[i]);
            if not ODD(a[i]) then inc(b[a[i]]);
            if ODD(a[i]) then s:=s+a[i];
        end;
    for i := 1 to 10 do write(a[i],' ');
    writeln;
    writeln('gia tri cac phan tu co chi so chan la: ');
    for i := 1 to 10 do 
        if (b[a[i]] = 1) then 
            begin
                write(a[i],' ');
                dec(b[a[i]]);
            end
        else dec(b[a[i]]);
    writeln;
    writeln('tong gia tri cac phan tu co gia tri le la: ',s);
    readln;
end.
* Nếu có j cần sửa thì chat nhá !!!!