读入整数用for循环，设置一个停止位
你和2求余，如果等于0就是偶数，等于1就是奇数。
pascal:
var
n,a,b,i,x:longint;
begin
write('Input n:');
readln(n);
a:=0;
b:=0;
for i:=1 to n do begin
readln(x);
if x mod 2=0 then a:=a+x else b:=b+x;
end;
writeln('a=',a);
writeln('b=',b);
end.
我用n表示这组整数的个数，x表示这组数的数值，a表示偶数的和，b表示的奇数的和。
。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024