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

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

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Блок схема во вложении.