Помогите доделать прогу

[Deis]

В одномерном массиве, состоящем из n целых элементов, вычислить:
1) номер максимального элемента массива;
2) произведение элементов массива,
расположенных между первым и вторым нулевыми элементами;
3) Преобразовать массив таким образом, чтобы в первой его
половине располагались элементы, стоявшие в нечетных позициях,
а во второй половине - элементы, стоявшие в четных позициях.

первое я сделал, а вот со вторым и третим напряги, помогите чем сможие!!!

Вот код первого пункта:

Program pr_9;
uses crt;
var max, s: real;
x: array [0..50] of real;
i, l, k, k1, j, n: integer;
begin
clrscr;
write ('vvedite razmernost massiva, n=');
readln (n);
writeln ('vvedite ilementi massiva');
for i:=1 to n do
begin;
write ('x[',i,']= ');
readln (x[i]);
end;
writeln ('Massiv X');
for i:=1 to n do write(x[i]:4:0,' ');
writeln;
max:=x[1];
for i:=1 to n do if max<x[i] then max:=x[i];
writeln ('Maksimalni ilement massiva: ',max:4:0);
l:=0;
k:=0;
for i:=1 to n do
if x[i]>0 then
begin;
if (1<>0) and (k=0) then k:=i;
if l=0 then l:=i;
end;

[Sazary]

Встроил остальные задачи в ваш код. Вроде, все работает.

Program pr_9;
uses crt;
var max, s: real;
x: array [0..50] of real;
i, l, k, k1, j, n: integer;
pr : real;
flag : boolean;

begin
clrscr;
write ('vvedite razmernost massiva, n=');
readln (n);
writeln ('vvedite ilementi massiva');
for i:=1 to n do
  begin;
  write ('x[',i,']= ');
  readln (x[i]);
  end;
writeln ('Massiv X');
for i:=1 to n do write(x[i]:4:0,' ');
writeln;
max:=x[1];
for i:=1 to n do if max<x[i] then max:=x[i];
writeln ('Maksimalni ilement massiva: ',max:4:0);
l:=0;
k:=0;
for i:=1 to n do
if x[i]>0 then
  begin;
  if (1<>0) and (k=0) then k:=i;
  if l=0 then l:=i;
  end;
{------------------------}
{  proizvedenie :   }
flag := false;
pr := 1;
for i:=1 to n do
  begin
   if x[i] = 0 then
     begin
     if not flag then flag := true
     else break;
     end
   else if flag then pr := pr * x[i];
  end;
if flag then writeln('Proizv= ',pr)
else writeln('Net nulevyh elementov');
{--------------------------------}
{ preobrazovanie : }
writeln;
i := 2;
if odd(n) then k:=1
else k := 0;
while true do
  begin
  pr := x[i];
  x[i] := x[n-i+k+1];
  x[n-i+k+1] := pr;
  inc(i,2);
  if i > (n div 2 +k) then break;
  end;

for i:=1 to n do
  write(x[i]:4:0);
writeln;

readln;
end.

[pomoshnic]

3)
Var a,b:array [1..100] of integer;
I,j,n:integer;
Begin
Readln(n);
{
Randomize
For i:=1 to n do
Begin
a[i]:=random(200)-100;
Write(a[i],' ');
End;
}
J:=1;
For i:=1 to n do
If odd(i) then
Begin
B[j]:=a[i];
Inc(j);
Writeln;
End;
For i:=1 to n do
If not odd(i) then
Begin
B[j]:=a[i];
Inc(j);
End;
For i:=1 to n do write(b[i],' ');

[Deis]

спасибо огромное!!! я малёха подправил ваш код и всё супер!!!