задача

[мария 12]

не рабочий... одну и туже сумму выводит -1.. ((((((((((

[мария 12]

а на счет наказать, зачет не поставит... (((((((((((((

[Donatello]

Ну тогда жди вечера, вечером буду дома посмотрю почему не работает. Мне пока что сложновато по коду просто ориентироваться, а по поводу зачета, вы вообще что уже прошли???
Массивы и цикл While это понятно, if`ки идут еще до массивов. Вложенные циклы когда проходят я уже и не помню, но вроде первые примеры вложенных циклов появляются тогда же когда и сами циклы.
А по поводу зачета не зачета, если все то что я выше написал вы прошли(или у вас упоминалось) то зачет должны поставить с моим примером(когда домой приду и сделаю что бы он рабочим был)

[мария 12]

спасибки=****

[Donatello]

Попробуй ниже код, мб поправит мою ошибку

var
  x: array [1..n] of Integer;
  i,sum,n: Integer;
begin
  i := 1;
  sum := 0;
  WriteLn('Введите размерность массива');
  ReadLn(n);
  Writeln('Введите числа массива');
  While ( i != n) do begin
    Read(x[i]);
  end;
  While ( i != n) do begin
    if (x[i] < 0) then begin
      while(i != n) do begin
        sum:= sum + x[i];
        if(x[i] < 0 and i != n) then begin
          i:=n-1;
        end;
        inc(i);
       end;
     end;
     inc(i);
   end;
   WriteLn('Сумма чисел в диапозоне от первого отрицательного до второго отрицательно числа: ', sum);
end.

[мария 12]

теперь вообще не выводит....