Сосчитать количество отрицательных элементов массива - PascalABC.NET

Сосчитать количество отрицательных элементов массива.

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

k:=0;
for i:=1 to n do
 if a[i]<0 then
  inc(k);

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

Объявляется переменная k и инициализируется значением 0.
Задается цикл for, который будет выполняться от i=1 до n.
Внутри цикла проверяется условие if, если значение элемента массива a[i] меньше нуля, то выполняется инструкция inc(k), которая увеличивает значение переменной k на единицу.
По завершению цикла for, значение переменной k будет содержать количество отрицательных элементов массива a.