Помогите пожалуйста решить задачу с массивом

[askvid]

Дан массив a1, a2, a3,…, a2n. Определить количество и произведение положительных значений элементов массива, лежащих между элементом с наименьшим по абсолютной величине значением и элементом с номером n.

По-отдельности я вроде бы понимаю все, о чем идет речь в задаче, но не хватает знаний чтобы совместить все в программу.

Помогите пожалуйста.

[jura_k]

Первый проход: цикл от 1 до 2n.
Ищешь минимальный элемент (по абсолютному значению), запоминаешь его номер k.

Второй проход: цикл от k до n (или от n до k - как получится).
Ищешь положительные элементы, считаешь их количество и одновременно вычисляешь их произведение.

[askvid]

Спасибо большое, сейчас попробую

[newerow1989]

const n=10;
var i,k,c,p:integer;
    a:array[1..2*n] of integer;
begin
   Randomize;
   For i:=1 to 2*n do
   begin
      a[i]:=-10+Random(21);
      Write(a[i],'  ');
   end;
   Writeln;
   Writeln;
   k:=1;
   For i:=2 to 2*n do
      If Abs(a[k])>Abs(a[i]) then
         k:=i;
   Writeln('k = ',k);
   Writeln;
   c:=0;
   p:=1;
   For i:=k+1 to n-1 do
      If a[i]>0 then
      begin
         c:=c+1;
         p:=p*a[i];
      end;
   For i:=n+1 to k-1 do
      If a[i]>0 then
      begin
         c:=c+1;
         p:=p*a[i];
      end;
   Writeln('c = ',c);
   Writeln('p = ',p);
   Readln;
end.