Составить блок схему и написать программу : ввести 10 значений в переменную z . найти и выдать на экран количество введеных нулей .

Var
  i,k,z:integer;
begin
  k:=0;
  Write('Введите 10 целых чисел: ');
  for i:=1 to 10 do
  begin Read(z); if z=0 then Inc(k) end;
  Writeln('Количество введенных нулей равно ',k)
end.
 
Тестовое решение:
Введите 10 целых чисел: 6 -5 0 4 -8 0 3 1 -2 0
Количество введенных нулей равно 3

Блок схема во вложении.

Var i,k:integer;
z:array[10] of integer;
for i:=0 to 10 do
read(z[i]);
k:=0;
for i:=0 to 10 do
if z[i]=0 then inc(k);
writeln('Нулей:', k);
end.