Массив чисел с разными знаками.

[GoldSieg]

Здравствуйте. мне необходимо написать программу

Массив r длины N содержит элементы разных знаков. Составить программу построения массива rS, в котором все подряд идущие элементы массива r одного знака были бы заменены их суммой
я попытался написать прогу но конкретно запутался...

program rge;
type mas=array[-50..50]of real; 
var r:mas;
    i:integer;
    n,a,b:integer;
begin
a:=1; b:=1;
 write('n'); read(n);
 randomize;
 For i:=1 to n do r[i]:=i;
 For i:=1 to n do begin r[i]:=random(20)-10; end;
 for i:=1 to n do a:=r[i]; b:=r[i+1];
  if a>0 and b>0 then r[i]:=(a+b)
   else r:=(r[i]+r[i+1]);
   for i:=1 to n do writeln(r[i]);
 end.

[Dush]

1.

type mas=array[-50..50]of real;

так массивы не объявляют.
2.

For i:=1 to n do r[i]:=i;

это зачем?
алгоритм следующий:
объявляем переменную в которой будем хранить знак предидущего числа, например boolean (где 0 - отрицательное, 1 - положительное) или integer (где -1 - отрицательное , 1 - положительное)
в цикле начиная со второго элемента смотрим знак предидущего - совпадает со знаком текущего числа? если совпадает то прибавляем текущее число к переменной в которой храним сумму. если нет то записываем сумму в массив rS, "обнуляем" переменную суммы.
для записи в массив rS, насколько я понял, необходимо сохранять начальный индекс (с которого начинается последовательность чисел с одинаковым знаком) и записывать сумму от этого индекса до текущего.
в коде это будет примерно так:

Nachalo:=1;
for i:=2 to n do
begin
  if <знак предидущего элемента> = <знак текущего элемента> then s:=s+r[i]
  else 
  begin
    for j:=Nachalo to i-1 do rS[j]:=s;
    <знак предидущего элемента>:=-1 * <знак предидущего элемента>;
    s:=r[i];
    Nachalo:=i;
  end;
end;

[GoldSieg]

Благодарю!))

[GoldSieg]

program rge;
var r:array[-50..50]of integer;
    rS:array[-50..50]of real;
    j,s,i:integer;
     Nh,n:integer;
    z1,z2:boolean; 
begin
Nh:=1;
z1:=false; z2:=false;
 write('Длинна ряда n='); read(n);
 randomize;
 write('Числовой РЯД');
 For i:=1 to n do begin r[i]:=random(20)-10;
 write('',r[i]:4); end;
  for i:=2 to n do 
  begin
   begin
  if r[i]<0 then z1:=true; z2:=false; else z1:=z2;
  end;
  begin
  if z1=z2 then s:=s+r[i]
   else; 
   begin
    for j:=Nh to i-1 do rS[j]:=s;
     z1:=z2;
     s:=r[i];
     Nh:=i;
   end;
  end;
  writeln();
  write('CУММА ЧИСЕЛ');
  for j:=2 to n do write('',rs[j]:4);
  end.

В чем ошибка?

[Dush]

Код:
type mas=array[-50..50]of real;
так массивы не объявляют.

я это написал не к тому, что определение массива запихнули в тип, а к тому что индексация массива производится от 0 а не от -50.

вы вообще пробовали пройтись трассировкой по программе и посмотреть где и какие ошибки?

begin
  if r[i]<0 then z1:=true; z2:=false; else z1:=z2;
  end;
  begin

что ЭТО?
вот текст программы.

var r:array[0..10]of integer;
    rS:array[0..10] of integer;
    j,s,i:integer;
    Nachalo,n:integer;
    ZnakOld,ZnakNew:boolean;

begin
randomize;
    For i:=0 to 10 do
    begin
      r[i]:=random(20)-10;
      write('',r[i]:4);
    end;

    Nachalo:=0;
    if r[0]<0 then ZnakOld:=false else ZnakOld:=True;
    s:=r[0];

    for i:=1 to 10 do
    begin
      if r[i]<0 then ZnakNew:=false else ZnakNew:=True;
      if ZnakOld = ZnakNew then s:=s+r[i]
      else
      begin
        for j:=Nachalo to i-1 do rS[j]:=s;
        ZnakOld:=not ZnakOld;
        s:=r[i];
        Nachalo:=i;
      end;
    end;
    for j:=Nachalo to i-1 do rS[j]:=s;
    Writeln;
    For i:=0 to 10 do
      write('',rs[i]:4);
    readln;

[GoldSieg]

Ваша программа работает неправильно.

[Dush]

что работает не так как надо? давайте разберемся и исправим

[GoldSieg]

Давайте.) В ответе( в массиве не всегда появляются нужные значения)..

[GoldSieg]

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