大家帮忙做一道pascal数组的题吧,实在是输不对

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/01 09:48:19

大家帮忙做一道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;

求pascal的一道题, 用pascal语言做一道题求pascal高手做一道题做一道PASCAL题目简单小题,大家帮忙这是java最基础的一道编程题,是构造一个数组,然后输出最大值,下面的代码也是正确的,但貌似不是很符合帮忙解一道pascal题目,有程序的线性代数---请问大家这题怎么做,希望给一个详细的过程,实在是看不懂,希望大家帮上忙, 这是一道平方根的题,我实在做不了了,请尽快回答,今晚就要, 问一道C语言的题麻烦大家帮忙看一下下边这道题,写一下分析的过程（我实在是想不明白这道题了）在C语言中有如下语句：int 一道三年级的数学题,请大家帮忙做一下? 大家帮忙做一道测智商的数学题. 一道pascal的余数（韩信点兵）题!