Ответ:

var i, count : integer;

   arr: array[1..10] of integer;

begin

 write('Массив: ');

 for i := 1 to 10 do

 begin

   arr[i] := random(0, 5);

   write(arr[i], ' ');

   if arr[i] = 0 then inc(count);

 end;

 writeln();

 write('Количество элементов равных нулю: ', count);

end.