Var a:array[1..100] of integer; i,n,sum:integer;
begin
randomize;
n := 100; {Кол-во элементов в массиве}
sum := 0;
for i:=1 to n do
a[i] := random(81) - 40;
for i:=1 to n do
if a[i] < 0 then
sum := sum + a[i];
writeln(sum);
end.

Var a:array of integer; i,n,s:integer;
Begin
 write('Введите длину массива: ');
 readln(n);
 setlength(a,n+1);
 s:=0;
 for i:=1 to n do
   begin
    a[i]:=random(81)-40;
    if a[i]<0 then s:=s+a[i];
   end;
 writeln('Сумма отрицательных элементов массива равна ',s);
End.