搜搜考试网输入n(1
来源：学生作业帮 编辑：搜搜考试网作业帮 分类：综合作业 时间：2024/08/16 10:50:03
输入n(1
var n,x,i,s1,s2:longint;
begin
s1:=0; s2:=0;
for i:=1 to n do
begin
read(x);
if odd(x) then inc(s1,x) else inc(s2,x);
end;
writeln('Ji Shu He=',s1);
writeln('Ou Shu He=',s2);
end.
再问： 请对重点部分做下讲解，70分不是那么容易得的。~
再答： 各语句功能如下：
var n,x,i,s1,s2:longint;
begin
readln(n); /* 读入要输入几个数，上面漏了这一句 */
s1:=0; s2:=0; /* 累加器清零 */
for i:=1 to n do /* 共n次，每次循环读入一个数x */
begin
read(x);
if odd(x) then inc(s1,x) /* 如x是奇数，就加到s1中 */
else inc(s2,x); /* 否则就加到s2中 */
end;
writeln('Ji Shu He=',s1); /* 输出奇数的和s1 */
writeln('Ou Shu He=',s2); /* 输出偶数的和s2 */
end.
begin
s1:=0; s2:=0;
for i:=1 to n do
begin
read(x);
if odd(x) then inc(s1,x) else inc(s2,x);
end;
writeln('Ji Shu He=',s1);
writeln('Ou Shu He=',s2);
end.
再问： 请对重点部分做下讲解，70分不是那么容易得的。~
再答： 各语句功能如下：
var n,x,i,s1,s2:longint;
begin
readln(n); /* 读入要输入几个数，上面漏了这一句 */
s1:=0; s2:=0; /* 累加器清零 */
for i:=1 to n do /* 共n次，每次循环读入一个数x */
begin
read(x);
if odd(x) then inc(s1,x) /* 如x是奇数，就加到s1中 */
else inc(s2,x); /* 否则就加到s2中 */
end;
writeln('Ji Shu He=',s1); /* 输出奇数的和s1 */
writeln('Ou Shu He=',s2); /* 输出偶数的和s2 */
end.