Program BTT;
Uses crt;
Var A: array[1..10] of longint;
i,dl,j,tg: longint;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
End;
dl:=0;
For i:=1 to 10 do
If A[i] mod 2 = 1 then dl:=dl+A[i];
Writeln('Tong cac phan tu le la: ',dl);
Write('Sap xep mang dan la: ');
For i:=1 to 9 do
For j:=i+1 to 10 do
If A[i]>A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
For i:=1 to 10 do Write(A[i],' ' );
Readln
End.