Quảng cáo
1 câu trả lời 254
2 tháng trước
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.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!