Bài 1: Cho N và dãy số nguyên a1,...an, hãy tính tổng các số có giá trị là chẵn.

Program baitap;

Uses crt;

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

      S,N,i:integer;

Begin

Clrscr;

Write('N=');

Readln(N);

S:=0;

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 so co gia tri la chan:',S);

Readln

End.

Bước 1: nhập n

Gán s:= 0; 

Bước 2: cho biến i chạy từ 1 đến n 

Nếu a[i] mod 2 = 0 then S:=S+A[i] ; 

Bước 3 : in ra kết quả và kết thúc thuật toán  

nếu đúng mong bạn vote 5 sao và 1 cảm ơn nha