VCT nhập vào một dãy gồm N số nguyên. Tính tổng các số chẵn.

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,s: longint;
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 s:=s+A[i];
        End;
        Write('S = ',s);
        Readln
End.

uses crt;
var i,s,n:integer;
    a:array[1..1000] of integer;
begin
 clrscr;
 write('Nhap n: ');
 readln(n);
 for i:=1 to n do
  begin
   write('Nhap a[',i,']: ');
   readln(a[i]);
   if a[i] mod 2=0 then s:=s+a[i];
  end;
 writeln('Tong cac so chan: ',s);
 readln;
end.

Vote mik nha :3