Дан массив R1 ... R20. Определить номер первого и последнего отрицательных элементов. Вычислить сумму этих элементов

В Паскале

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.