program chuogntrinh; var a:array[1..100] of integer; n,i,s:integer; begin writeln('nhap so phan tu'); readln(n); for i:=1 to n do readln(a[i]); s:=0; for i:=1 to n do if a[i] mod 2 <> 0 then s:=s+a[i]; writeln('tong la ', s:4); readln; end.
Program BT; Var n,i,t :longint; a : array [1..100] of longint; Begin repeat Write ('Nhap N : ');Readln(n); until n > 0; t := 0; For i := 1 to n do Begin Write ('A[',i,']= ');REadln(a[i]); If a[i] mod 2 = 1 then t := t + a[i]; end; Write ('Tong la : ',t); end.
