Задачи по ПТП

[HelpPLZ]

Помогите пожелуйста решить задачи, срочно надо!:
1. Дана последовательность N целых чисел. Составить блок схему и программу для удвоения каждого вхождения элемента E в последовательность
2. Дан одномерный массив А, состаящий из N элементов. Подсчитать максимальное количество подряд идущих отрицательных элементов.

[Stilet]

Обязательно с массивом мучаться?
Проще сразу при вводе выяснять последовательности:

MODULE m;
IMPORT StdLog,In;
VAR  a,m:INTEGER;

PROCEDURE do*;
VAR n,k,e,mi:INTEGER;
BEGIN
 In.Open; mi:=0;
 In.Int(n);
 StdLog.Clear;
 k:=0;
 WHILE In.Done DO
  a:=n;StdLog.Int(a);StdLog.Tab;
  IF a<0 THEN INC(mi) ELSE 
   IF mi>m THEN m:=mi; END;
   mi:=0;
  END;
  INC(k);
  In.Int(n);
 END;
StdLog.Ln;
StdLog.Int(m);
END do;

END m.

[HelpPLZ]

это какой язык прогр.? На языке С надо.

[Hacker19_90]

1)

for (i = 0; i < N; i++)
    if (posled[i] == E) posled[i] *= 2;

2)

max = 0;
temp_max = 0;
for (i = 0; i < N; i++)
    if (A[i] < 0) temp_max++
    else if (temp_max > max) max = temp_max;

[HelpPLZ]

а как изобразить блок-схему?

[Hacker19_90]

Сообщение от HelpPLZ

а как изобразить блок-схему?

Ну...
Как бы смотрите на код и чертите схему!

[rrrFer]

Hacker19_90
во второй у вас недочет

max = 0;
temp_max = 0;
for (i = 0; i < N; i++)
    if (A[i] < 0) 
        temp_max++
    else {
        if (temp_max > max) 
            max = temp_max;
        temp_max = 0;
    }

счетчик обнулить забыли