Одномерный массив.

[Ольга123]

Дан одномерный массив А(N) .Составить программу. Все отрицательные элементы заменить на сумму, а положительные на полусумму предшествующих и последующих элементов этого массива.

[flash1989]

Пиши, сделаю
icq: 588002847
email: flash_1989@ukr.net

[Sheka]

255507394.

[Oleg_Rus]

Код: Выделить всё

for i:=1 to n do
begin
  while i<=n do
  begin
    if (a[i]<0) and (ppmin=0) then ppmin:= a[i] else if pmin=0 then pmin:= a[i];
    a[i]:=(ppmin+pmin) /2;
    inc(i);
  end;
  while i<=n do
  begin
    if (a[i]<0) and (ppmax=0) then ppmax:= a[i] else if pmax=0 then pmax:= a[i];
    a[i]:=ppmax+pmax;
    inc(i);
  end;
end;

Примерно так, не уверен код пишу навскидку да на глаз, так что есть погрешности, но принцип этот )))