Использование методов внутренней сортировки.

[Svetlanka]

Использование методов внутренней сортировки.

Массив a длины n содержит элементы разных знаков. Составить программу построения массива b, в котором все подряд идущие элементы массива a одного знака были бы заменены их суммой, как в следующем примере: a={1, 2, -3, -4, 5}, b={3, -7, 5}.

 

[Svetlanka]

помогите пжл!!!!!!!!

 

[Vladimir_S]

помогите пжл!!!!!!!!

Вообще-то с этого и стоило бы начать, а не обращаться к нам, как к прислуге.
Ну пожалуйста:

CONST
 N=10;
VAR
 A,B:ARRAY[1..N] of Integer;
 M:Byte;
 i:Integer;

Function Sign(s:integer):ShortInt;
 begin
  If s<0 then Sign:=-1 else
  If s>0 then Sign:=1 else
  Sign:=0;
 end;

BEGIN
 For i:=1 to N do
  begin
   Write('A[',i:2,']= ');
   ReadLn(A[i]);
  end;
 M:=1;
 i:=1;
 REPEAT
  B[M]:=A[i];
  Repeat
   Inc(i);
   If Sign(A[i])=Sign(A[i-1]) then
    B[M]:=B[M]+A[i];
  Until (Sign(A[i])<>Sign(A[i-1])) or (i=N);
  If i<N then Inc(M);
 UNTIL i=N;
 For i:=1 to N do
  Write(A[i]:5);
 WriteLn;
 For i:=1 to M do Write(B[i]:5);
 ReadLn;
END.

 

[Svetlanka]

Спасибо большое!!!