Hi các bro Bài 1: Viết chương trình Nhập vào một dãy số gồm n phần tử, Tính tổng các phần tử có giá trị chẵn và in kết quả ra ra màn hình

Program baitap;

Uses crt;

Var A:array[1..200] of integer;

      n,i:integer;

      S:longint;

Begin

Clrscr;

S:=0;

Write('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;

Writeln('Tong cac phan tu co gia tri chan:',S);

Readln

End.

uses crt;
var A:array[1..10000] of integer;
    n,i,sum:longint;
begin
    clrscr;
    readln(n);
    sum:=0;
    for i:=1 to n do
        begin
            read(A[i]);
            if A[i] mod 2=0 then sum:=sum+a[i];
        end;
    write(sum);
    readln; readln;
end.