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

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

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

Цитата:

Сообщение от Svetlanka (Сообщение 418256)

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

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

Код:

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.

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