задача

[мария 12]

я думаю можно но я не уверена))

[Pein95]

for i:=1 to n do
  begin

       if a[i]<0 then
       begin
        if k1=0 then
       k1:=i
        else k2:=i;
       if k2<>0 then goto 1;
       end;

        1:for j:=k1+1 to k2-1 do
        begin
       s:=s+a[j];

        end;

ну собственно код не очень... даже не знаю работает ли... проверте сами переделать в цыкл while думаю не составит трудностей

[мария 12]

думаю можно но я не уверена

[мария 12]

я так писала преподу не понравилось...
и теперь ищу альтернотивные варианты...(((

[Donatello]

Ну если можно то можно попробовать примерно так(у меня компилятора нету под рукой что бы проверить)

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

Т.к. пишу прямо тут в форуме, то за работо способность не ручаюсь, и возможно нужно Break`ов добавить дабы он закрывал всё

Чуть чуть подправил, в ручной ввод сама переделаешь

[мария 12]

а можно без break ов и random ов??)))))) :-[

[Donatello]

Ну без брейков ты не обойдешься, покрай не мере в том примере что я привел(правда точно не уверен мб можно и без них все же обойтис) про рандом я уже писал на что ты ответила что знаешь про ввод массива, следовательно переделать ввод массива под ручное управление тебе не составит труда.

[мария 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;
        end;
        inc(i);
       end;
     end;
     inc(i);
   end;
   WriteLn('Сумма чисел в диапозоне от первого отрицательного до второго отрицательно числа: ', sum);
end.

[Donatello]

За что наказывать то??? Я когда учился на первой лабе все решил через циклы, хотя требовалось через if`ки, я думаю ничего тебе не сделают, правда могут возложить лишнии надежды на тебя, да и проверь мб мой вариант еще и не рабочий.
Все сделано на логике.