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.0>1>0>1>