Паскаль.Заполнить одномерный массив случайными числами от -70 до 30,посчитать сумму отрицательных элементов массива и вычислить её абсолютную величину.

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

program NegativeSum;

var
arr: array[1..10] of integer;
i, sumNegative: integer;

begin
sumNegative := 0;

Randomize;

// заполняем массив случайными числами от -70 до 30
for i := 1 to 10 do
begin
arr[i] := Random(101) - 70;

end;

// выводим массив
writeln('Массив:');
for i := 1 to 10 do
write(arr[i], ' ');

writeln;

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

// выводим абсолютную величину суммы отрицательных элементов
writeln('Абсолютная величина суммы отрицательных элементов:', abs(sumNegative));
end.