作业帮大家帮忙做一道pascal数组的题吧,实在是输不对在一组由n个整数构成的数组中,计算：数组中第一个与第二个为0的数之间所有数的乘积并按以下方式改变数组排序,所有位于奇数位数的数放在
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 12:28:01
大家帮忙做一道pascal数组的题吧,实在是输不对在一组由n个整数构成的数组中,计算：数组中第一个与第二个为0的数之间所有数的乘积并按以下方式改变数组排序,所有位于奇数位数的数放在
大家帮忙做一道pascal数组的题吧,实在是输不对
在一组由n个整数构成的数组中,计算：数组中第一个与第二个为0的数之间所有数的乘积
并按以下方式改变数组排序,所有位于奇数位数的数放在数组的前一半,位于偶数位置上的数放在后一半.
大家帮忙做一道pascal数组的题吧,实在是输不对在一组由n个整数构成的数组中,计算：数组中第一个与第二个为0的数之间所有数的乘积并按以下方式改变数组排序,所有位于奇数位数的数放在
pragram ui;
var a,b,c:array[1..10000] of longint;
i,j,n,l,s,r:longint;
k:boolean;
begin
readln(n); k:=false;
for i:=1 to n do
begin
if (a[i]=0) and (not k) then begin j:=i; k:=true; end;
if (a[i]=0) and k then begin l:=i; break; end;
end;
s:=1;
for i:=j+1 to (l-1) do s:=a[i]*s;
j:=1; l:=1;
for i:=1 to n do
begin
if odd(i) then begin b[j]:=a[i]; j:=1; end
else begin c[l]:=a[i]; l:=l+1; end;
end;
for i:=1 to j do a[i]:=b[i];
for i:=j+1 to (j+l) do a[i]:=c[i-j};
for i :=1 to n do write(a[i],' ');
end;
重了吧？
好无聊的题。