Помощь с одномерным массивом.(Delphi или Pascal)

[Владимир10101]

Помогите, пожалуйста, написать код по вычислению минимального произведения отрицательных подряд идущих элементов одномерного массива. Сам пытался и как-то ни о чем((

[newerow1989]

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

[Владимир10101]

Еще как сойдет!!! Спасибо огромное!!

[newerow1989]

[Владимир10101]

Что-то не понимаю. Если 2 элемент будет больше нуля, то по идее должно выполняться тело после else , но оно не будет выполняться , так как одно из условий это k>1 , а у нас к=1. Объясните, пожалуйста, что происходит, если 2 элемент будет больше нуля ))), потому что я уверен, что неправильно мыслю(

[Владимир10101]

к=1, потому что, если например , будет первый элемент отрицательный