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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 12:33:33
读入n个数,求第偶数个数的总和,及求出第奇数个数总和的平均数(四舍五入,保留两位小数).求一pascal程序
x͑J@_eoMiHI_5ۺ!nB6hUQZ؃oD Vd|7UO;3oٵaɏ'4߯F3uxLY$Y)>Zu\S!"%&d'~?^|<^RM2ۀφ8фY<m!/;㋡ ?Ha*=YvQ(OQife[qXQ]*3U beq 9Uh1Z~ I7˒B.A)`QJM$=)$SJUnɨLUtRHwd/$VĖPP; bkDkG~o؈

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

读入n个数,求第偶数个数的总和,及求出第奇数个数总和的平均数(四舍五入,保留两位小数).求一pascal程序
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.