cho dãy A gồm N số nguyên a1,a2..aN .hãy tính tổng các số có giá trị chẵn trong dãy A

program Bai;

uses crt;

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

      n,i,T:integer;

Begin

    clrscr;

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

    for i:=1 to n do

    begin

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

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

    end;

    writeln('Tong cac so chan = ',T);

    readln

End.

uses crt;
var n,i,sum:longint;
    a:array[1..1000] of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do
        begin
            read(a[i]);
            if(a[i] and 1 <> 1) then inc(sum,a[i]);
        end;
    writeln(sum);
readln; readln;
end.