Написать задачу в Паскале. Определить что больше по модулю: сумма отрицательных чисел массива или отрицательных.

var

i, sum1, sum2, n : integer; / / объявляем переменные целочисленного типа.

arr : array of integer; / / объявляем массив.

Begin

writeln ('Введите размерность массива:'); / / вывод строки на экран.

read (n); / / считываем размерность массива.

setlength (arr, n); / / выделяем память под массив.

for i: = 0 to (n-1) do / / начало цикла.

begin

arr[i] : = random (-100, 100); / / заполняем элемент массива числом из диапазона.

if (i > 0) then sum1 : = sum1 + arr[i]; / / считаем положительные элементы.

if (i < 0) then sum2 : = sum2 + arr[i]; / / считаем отрицательные элементы.

end;

if (sum1 > abs (sum2)) then

writeln ('Сумма положительных чисел массива больше суммы отрицательных чисел по модулю.');

if (abs (sum2) > sum1) then

writeln ('Сумма отрицательных чисел массива по модулю больше суммы положительных чисел.');

if (abs (sum2) = sum1) then

writeln ('Сумма отрицательных чисел массива по модулю равна сумме положительных чисел.');

End.