大家帮忙做两道pascal数组的题吧

来源：百度知道 编辑：UC知道 时间：2024/05/29 02:04:37
在一组由n个整数构成的数组中，计算：数组中第一个与第二个为0的数之间所有数的乘积
一组由n个整数构成的数组按以下方式改变数组排序，所有位于奇数位数的数放在数组的前一半，位于偶数位置上的数放在后一半。

1.
const n=10;{自己改}
var a:array[1..n]of integer;{自己赋值}
i,j:longint;
begin
j:=1;
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]<>0 then j:=j*a[i]
else break;
writeln(j);
end.

是不是重了？