Nhập dãy số C1,C2,C3,... C100 sau đó tính tổng tất cả cách số chẵn trong dãy rồi in ra màn hình v.Lần đầu tiên mh hỏi tin có bn nào làm đc ko giúp vs và gt chi tiết nhe xác định bài toán vt sơ đồ cho thuật toán mô tả thuật toán
1 câu trả lời
uses crt;
var a:array[1..1000000]of longint;
i,n,sum:longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
readln;
for i:=1 to n do
if (a[i] mod 2 = 0) then inc(sum,a[i]);
write(sum);
readln;
end.