Составить программу которая формирует массив из 12 целых чисел подсчитывает сумму отрицательных элементов массива ПАСКАЛЬ АБС

Предыдущий
вопрос Следующий
вопрос

program SumNegativeElements;

var
arr: array[1..12] of integer;
sum, i: integer;

begin
sum := 0;

// Заполняем массив случайными значениями
Randomize;
for i := 1 to 12 do
begin
arr[i] := Random(21) - 10; // Генерируем числа от -10 до 10
end;

// Выводим массив
writeln('Массив: ');
for i := 1 to 12 do
begin
write(arr[i], ' ');
if arr[i] < 0 then
begin
sum := sum + arr[i]; // Суммируем отрицательные элементы
end;
end;

writeln;
writeln('Сумма отрицательных элементов массива: ', sum);

end.