Евгений

const n=10;
var A: array[1..n] of integer;
i,j: byte;
n1,n2: integer;
sum: integer;
begin
Randomize;
for i:=1 to n do begin
A[i]:= Random(100)-40;
Write(A[i]:4);
end;
Writeln;
j:=0; n1:=0; n2:=0;
repeat
for i:=1 to n do begin
if (A[i]<0) and (n1<>0) then begin
n2:= i;
Inc(j);
Break
end;
if (A[i]<0) and (n1=0) then begin
n1:= i;
Inc(j);
end;
end;
until j=2;
sum:=0;
if (n1+1)=n2 then sum:=0
else
if (n1+1)=(n2-1) then sum:= A[n1+1]
else
for i:=(n1+1) to (n2-1) do
sum:= sum + A[i];
Writeln(sum);
Readln;
end.