В PascalABC дана последовательность целых чисел, в этой последовательности есть два нуля, располагаются они в разных местах, надо найти количество чисел стоящих между этими нулями.

program zz1;

var a, k1, k2, i, s, n:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры количество чисел последовательности

read (n);

for i:=1 to n do / / организуем цикл

begin

read (a); / / вводим число последовательности

if (a = 0) and (s = 0) then begin k1:=i; s:=1; end; / / находим номер первого нуля

if (a = 0) and (s = 1) then k2:=i; / / находим номер второго нуля

end;

write (' количество чисел стоящих между нулями = ', k2 - k1 - 1); / / выводим ответ

end.