В массиве С (n) подсчитать количество отрицательных и сумму положительных элементов - Pascal

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

В массиве С (n) подсчитать количество отрицательных и сумму положительных элементов

Решение задачи: «В массиве С (n) подсчитать количество отрицательных и сумму положительных элементов»

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

program Test;
 
const
     n = 10;
var
   i: integer;
   PosSum: integer = 0;
   NegCount: integer = 0;
   arr: array[1..n] of integer = (2, 56, 4, -1, 56, -234, 4, -1, -3, 3);
begin
     for i:= 1 to n do
         if arr[i] >= 0 then Inc(PosSum, arr[i])
         else Inc(NegCount);
 
     WriteLn('Количество отрицательных: ', NegCount);
     WriteLn('Сумма положительных: ', PosSum);
     ReadLn();
end.

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

В программе объявлены три переменные: i, PosSum и NegCount.
Переменная n инициализируется значением 10.
Создается массив arr с n элементами.
В цикле for i от 1 до n происходит следующее:
- Если arr[i] больше или равно нулю, то значение arr[i] добавляется к PosSum.
- Если arr[i] меньше нуля, то значение NegCount увеличивается на 1.
После завершения цикла выводится количество отрицательных элементов в виде Количество отрицательных:, а также сумма положительных элементов в виде Сумма положительных:.
Программа завершается вызовом функции ReadLn().