Найти количество нулей в одномерном массиве. Паскаль

Предыдущий
вопрос Следующий
вопрос

program CountZerosInArray;

var
arr: array[1..10] of Integer;
i, count: Integer;

begin
count := 0;

// Заполнение массива произвольными значениями
for i := 1 to 10 do
begin
arr[i] := Random(10); // Генерация случайных чисел от 0 до 9
Write(arr[i], ' ');
if arr[i] = 0 then
count := count + 1;
end;

// Подсчет количества нулей в массиве
WriteLn;
WriteLn('Количество нулей в массиве: ', count);
end.