Написать программу на языке паскаль подсчета суммы всех отрицательных элементов массива размерностью 100 элементов

var

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

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

Begin

for i: = 1 to 100 do / / начало цикла.

begin

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

if arr[i] < 0 then / / если элемент отрицательный.

sum : = sum + arr[i]; / / считаем сумму элементов.

end;

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

End.