program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,s:longint;
begin
        clrscr;
        write('Nhap so phan tu cua mang: '); readln(N);
        for i:=1 to n do
                begin
                        write('A[',i,']: ');
                        readln(a[i]);
                end;
        write('Cac so le trong mang: ');
        for i:=1 to n do
                if a[i] mod 2=1 then
                        begin
                                write(a[i],' ');
                                s:=s+a[i];
                        end;
        writeln;
        writeln('Tong cac so le trong mang: ',s);
        readln;
end.

uses crt;

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

i, n, s : integer;

begin

clrscr;

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

s := 0;

for i := 1 to n do

begin

write('Nhap phan tu thu ', i ,' : '); readln(a[i]);

if a[i] mod 2 <> 0 then s := s + a[i];

end;

write('Cac so le : ');

for i := 1 to n do if a[i] mod 2 <> 0 then write(a[i] : 4);

writeln; write('Tong cac so le : ', s);

readln

end.