Найти сумму модулей отрицательных элементов массива А - Pascal ABC

Формулировка задачи:

Дан массив А из 10 целых чисел (числа вводятся с клавиатуры). Найти сумму модулей отрицательных элементов массива А. Полученный результат суммы вывести на экран.

Решение задачи: «Найти сумму модулей отрицательных элементов массива А»

Листинг программы

const n=10;
..............................
s:=0;
for i:=1 to n do
if a[i]<0 then s:=s+abs(a[i]);

Объяснение кода листинга программы

В данном коде на языке Pascal ABC происходит вычисление суммы модулей отрицательных элементов массива А.

Объявляется константа n, которая равна 10.
Затем объявляется переменная s, которая будет использоваться для хранения суммы модулей отрицательных элементов массива А. Значение s инициализируется нулем.
Далее идет цикл for, который выполняется от 1 до n (количество элементов в массиве А).
Внутри цикла проверяется условие: если элемент a[i] меньше нуля, то к переменной s прибавляется абсолютное значение этого элемента (|a[i]|).
После завершения цикла, значение переменной s будет содержать сумму модулей отрицательных элементов массива А. В результате выполнения данного кода, переменная s будет содержать сумму модулей отрицательных элементов массива А.