program myprg;
var
a: array[0..9] of integer = (0, 1, 2, 0, 4, 5, 6, 7, 8, 0);
i, count: integer;
begin
count := 0;
for i := low(a) to high(a) do
if a[i] = 0 then
count := count + 1;
writeln(count);
end.
##
var n := ReadInteger;
var a := ArrRandom(n, -5, 5);
a.Println.CountOf(0).Print
program myprg;
var
a: array[0..9] of integer = (0, 1, 2, 0, 4, 5, 6, 7, 8, 0);
i, count: integer;
begin
count := 0;
for i := low(a) to high(a) do
if a[i] = 0 then
count := count + 1;
writeln(count);
end.
##
var n := ReadInteger;
var a := ArrRandom(n, -5, 5);
a.Println.CountOf(0).Print