program SumOfNegatives;

var
arr: array of integer;
i, sum: integer;

begin
Randomize;

// Initialize the array with random integers between -30 and 30
SetLength(arr, 10);
for i := 0 to Length(arr) - 1 do
begin
arr[i] := Random(61) - 30;
end;

// Print the array
Write('Array: ');
for i := 0 to Length(arr) - 1 do
begin
Write(arr[i], ' ');
end;

// Find and print the sum of negative elements
sum := 0;
for i := 0 to Length(arr) - 1 do
begin
if arr[i] < 0 then
begin
sum := sum + arr[i];
end;
end;

WriteLn;
WriteLn('Sum of negative elements: ', sum);
end.

Надеюсь, это поможет! Если у вас есть еще вопросы или вам нужна дополнительная помощь, пожалуйста, дайте знать.