program Tong_le;

uses crt;

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

      i,n,tong:integer;

begin

    clrscr;

    write('Nhap do dai cua day so,N =');

    readln(n); writeLn('Nhap cac phan tu cua day so:');

    For i:= 1 to n do

        begin

            Write('A[' ,i, ']=');  readln(A[i]);

        end;

    tong:=0;

    For i:= 1 to n do

        if A[i] mod 2=1 then tong:= tong+A[i];

    writeln('Tong cac gia tri le la:',tong);

    readln;

end.

Đáp án: Như phần "Giải thích các bước giải"
Giải thích các bước giải:

Program Tong_le;

Uses crt;

Var A:array[1..100] of integer;

i,n,tong: integer(1)

Begin

Clrscr;

Write('Nhap do dai cua day so,N =');  Readln(n);

WriteLn('Nhap cac phan tu cua day so:');

For i:= 1 to n(2) do

Begin

Write('A[' ,i, ']='); Readln(A[i]);

End;

tong:=0;

For i:= 1 to n do if A[i] mod 2= 1(3) then tong:= tong+ a(4)[i];

Writeln('Tong cac gia tri le la:',tong);

Readln;

End.