Tính tổng các số lẻ trong dãy số gồm N phần tử $a_{1}$;...$a_{N}$ (N ≤100)

program tinh_tong_le;

uses crt;

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

     n,i:b yte;

     t: integer;

begin

       clrscr;

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

       for i:=1 to n do

              begin

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

              end;

       t:=0;

       for i:=1 to n do 

       if A[i] mod 2=0 then t:=t+A[i];

       write('Tong cac phan tu le la: ',t);

       readln

end.

program tinh_tongle;

uses crt;

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

     n,i:byte;

     t:integer;

begin

       clrscr;

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

       for i:=1 to n do

              begin

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

              end;

       t:=0;

       for i:=1 to n do 

              if A[i] mod 2<>0 then t:=t+A[i];

       write('Tong cac phan tu le la: ',t);

       readln;

end.

Còn nếu bạn muốn tính tổng số chẵn thì bạn đổi if A[i] mod 2<>0 thành if A[i] mod 2=0 nha.