program CountZeros;

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

begin
// Заполняем массив произвольными значениями
arr[1] := 0;
arr[2] := 5;
arr[3] := 0;
arr[4] := 10;
arr[5] := 0;
arr[6] := 0;
arr[7] := 15;
arr[8] := 0;
arr[9] := 20;
arr[10] := 0;

countZeros := 0;

// Подсчитываем количество нулей в массиве
for i := 1 to 10 do
begin
if arr[i] = 0 then
countZeros := countZeros + 1;
end;

writeln('Количество нулей в массиве: ', countZeros);
end.