Begin

S:=0

Write('Nhap day:'); readln(a[i]);

For $i:=1$ to $10 $ do 

If a[i] mod 2=1 then S:=S+a[i];

Write('Tong là:',S); 

readln; end.

Phần khai báo bạn tự viết nhé!

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.