===== PascalABC.NET =====
begin
var a := ReadArrInteger(50);
a.Pairwise.Count( p -> p[0].InRange(100, 999) and
p[1].InRange(100, 999)).Println
end.
Попробуй:
("А" одно из чисел последовательности, а Q кол-во нулей)
Begin
For i:=1 to n do
Read(A);
If A=0 then inc(Q);
Write(Q);
End.
вот полное решение данной , спрашиваемой вами задачи