Ответ(ы) на вопрос:
Гостьvar
n, k: integer;
a, b, i: integer;
begin
read(n);
k := 0;
read(a);
for i := 2 to n do
begin
read(b);
if (a = 2) and (b = 2) then
k := k + 1;
a := b
end;
writeln(k)
end.
Не нашли ответ?
Похожие вопросы