const N=20;
var R:array[1..N] of integer;
i,a,b,c,s:integer;
begin
a:=0;
b:=0;
for i:=1 to N do
begin
R[i]:=random(N)-random(N);
write(R[i]:3,'[',i,']');
end;
writeln;
for i:=1 to N do
begin
if a<1 then
begin
if R[i]<0 then
begin
b:=i;
a:=a+1;
end;
end;
end;
a:=0;
c:=0;
for i:=N downto 1 do
begin
if a<1 then
begin
if R[i]<0 then
begin
c:=i;
a:=a+1;
end;
end;
end;
s:=0;
for i:=1 to N do
s:=s+R[i];
writeln('Номер первого отрицательного элемента - ',b);
writeln('Номер последнего отрицательного элемента - ',c);
writeln('Сумма элементов в массиве - ',s);
end.
