Все отрицательные элементы массива А заменить на сумму, а положительные на полусумму предшествующих

[Lada05]

очень прошу Вас помочь с задачей. в иформатике ноль( а в институте надо эту задачу решить и объяснить каждое действие в ней( или незачет. заранее спасибо!

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

[Stilet]

Предлагаю такое:

MODULE Массив;
 IMPORT StdLog,ObxRandom,Math;
(*Это массив и переменная суммы*)
 VAR a:ARRAY(10) OF INTEGER;Сумма:INTEGER; 

(*Процедура ввода массива*)
 PROCEDURE ВводимМассив;
(*Счетчик для цикла*)
 VAR i:INTEGER;
 BEGIN
(*Очищаем экран лога*)
 StdLog.Clear; 
(*От 0 до длины массива*)
  FOR i:=0 TO LEN(a)-1 DO
(*Заполним массив случайным числом*)
   a[i]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
(*Сразу посчитаем его сумму*)
   Сумма:=Сумма+a[i];
(*Выведем на экран лога очередной элемент*)
   StdLog.Int(a[i]); 
(*Перевод каретки*)
 	StdLog.Ln;
  END;			
 END ВводимМассив;

(*В цикле выведем массив в экран лога*)
 PROCEDURE ВыводимМассив;
 VAR i:INTEGER;
 BEGIN
  FOR i:=0 TO LEN(a)-1 DO
   StdLog.Int(a[i]); 
 	StdLog.Ln;
  END;			
 END ВыводимМассив;

(*В цикле позаменяем отрицательные*)
 PROCEDURE ЗаменаОтрицательных;
 VAR i:INTEGER;
 BEGIN
  FOR i:=0 TO LEN(a)-1 DO
   IF a[i]<0 THEN a[i]:=Сумма;END;
  END;
 END ЗаменаОтрицательных;

(*Поищем сумму начиная от некого элемента и вернем ее*)
 PROCEDURE ПолусуммаСледующих(i:INTEGER):INTEGER;
 VAR s:INTEGER;
 BEGIN
  s:=1;
  WHILE i<LEN(a) DO
   s:=s+a[i];
   INC(i);
  END;
  RETURN s;
 END ПолусуммаСледующих; 

(*Заменим положительные*)
 PROCEDURE ЗаменаПоложительных;
 VAR i:INTEGER;Полусумма:INTEGER;
 BEGIN
  FOR i:=0 TO LEN(a)-1 DO
   Полусумма:=Полусумма+a[i];
   IF a[i]>0 THEN 
(*На полусумму элементов до и после*)
    a[i]:=Полусумма DIV ПолусуммаСледующих(i+1);
   END;
  END;
 END ЗаменаПоложительных;


 PROCEDURE do*;
 BEGIN  
  ВводимМассив;
  StdLog.Ln;
  ЗаменаПоложительных;
  ЗаменаОтрицательных;
  ВыводимМассив;
 END do;

END Массив.

END Слова.
Массив.do;

Фактически с потолка, но вроде работает.