Заполнить массив положительными и отрицательными числами на интервале от - 40 до 40 и найти сумму отрицательных чисел, случайным элементом под элементом 25

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.