1-мерный массив: суммирование подряд идущих элементов 1 знака

[amm]

Возникли сложности над фрагментом программы, а именно:

Преобразовать одномерный массив по правилу:
суммируются подряд идущие значения одного знака, а вместо группы нулей записывается один ноль. Например:
ввод: 20 10 4 -1 -2 0 0 0 -10 41 62
результат: 34 -3 0 -10 103

как реализовать?

[VKorablev]

язык какой? хотя судя по заданию походу лисп?)

[alexdelphi]

если значения одного знака, то они положительны

[amm]

Сообщение от VKorablev

язык какой? хотя судя по заданию походу лисп?)

Паскаль) .

[Вадим Мошев]

Сообщение от alexdelphi

если значения одного знака, то они положительны

Это почему же?

Контрпример: значния -1, -2, -4, -8, -16.... Они ОДНОГО знака. Но они отрицательны.

[GetMax]

Var
  Mas1,Mas2:array[1..10] of Integer;
  i,j,k:Byte;
  SumP,SumO:Integer;
begin
  Randomize;
  For i:=1 to 10 do
  Begin
    Mas1[i]:=-20+Random(40);
    Write(Mas1[i]:4)
  End;
  Writeln;
  i:=1;
  j:=1;
  SumO:=0; 
  SumP:=0;  
  While i <= 10 do
  Begin
    If Mas1[i] > 0 then 
    Begin
      SumP:=0;
      While (Mas1[i] > 0) and (i <= 10) do   
      Begin
        SumP:=SumP+Mas1[i];  
        inc(i)            
      End;
      Mas2[j]:=SumP;     
      inc(j)
    End;
    If Mas1[i] < 0 then  
    Begin
      SumO:=0;
      While (Mas1[i] < 0) and ( i <= 10) do
      Begin
        SumO:=SumO+Mas1[i];                
        Inc(i)
      End;
      Mas2[j]:=SumO;    
      inc(j)
    End
    Else
    If Mas1[i] = 0 then    
    Begin
      Mas2[j]:=0;         
      inc(j);
      While (Mas1[i] = 0) and ( i <= 10) do Inc(i)      
    End;
  End;
  For i:=1 to j-1 do
  Write(Mas2[i]:4);
  Readln
End.

[amm]

спасибо огромное!