uses crt;

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

i,n,d: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do begin readln (a[i]); if a[i] mod 2=1 then d:=d+a[i]; end;

writeln ('tong la: ',d);

readln;

end.

$#Trumtinhoc$

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

      N， i: byte;

      S: integer;

Begin

        Write(‘nhap n = ‘); readln(n);

        S:=0;

        For i:=1 to n do 

              Begin

                    Write(‘nhap a[‘，i，’] = ‘);

                    readln(a[i]);

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

              End;

        Write(‘tong so le: ‘， s);

        Readln