作业帮 > 综合 > 作业

读入n个数,求第偶数个数的总和,及求出第奇数个数总和的平均数(四舍五入,保留两位小数).

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 12:34:19
读入n个数,求第偶数个数的总和,及求出第奇数个数总和的平均数(四舍五入,保留两位小数).
求一pascal程序
读入n个数,求第偶数个数的总和,及求出第奇数个数总和的平均数(四舍五入,保留两位小数).
var
a:array[1..32767]of integer;
i,j,s1,s2,n:integer;
x:real;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
if (i mod 2=0) then s1:=s1+a[i]
else begin s2:=s2+a[i];j:=j+1; end;
end;
x:=s2/j;
write(s1,' ',x:0:2);
end.