Найти количество нулевых элементов массива - PascalABC.NET

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

В одномерном массиве состоящем из 10 целых чисел (диапазон формируется с помощью random -50 до 50) Найти количество нулевых элементов;

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

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

const n=10;
 
var x:array [1..n] of integer;
    i,count:byte;
 
Begin
Count:=0;
 
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    X[i]:=Random(101)-50;
    Write(X[i]:4);
    
    // Находим кол-во нулевых элементов...
    if X[i] = 0 then Inc(Count);
    end;
Writeln;
 
Writeln('Ответ: ',Count);
end.

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

Объявляются константа n равная 10 и переменные x, i и count типа byte.
Инициализируется переменная count равной 0.
Выводится сообщение Исходный массив: и происходит итерация по элементам массива x.
Каждый элемент массива x инициализируется случайным числом от 0 до 100 с шагом 1.
С помощью оператора if проверяется условие X[i] = 0, если оно истинно, то к переменной count прибавляется единица.
После завершения итерации выводится значение переменной count, которое показывает количество нулевых элементов в массиве.
Выводится сообщение Ответ: и значение переменной count.