Jumping on the Clouds

L : https://www.hackerrank.com/challenges/jumping-on-the-clouds/problem?h_l=interview&playlist_slugs%5B%5D=interview-preparation-kit&playlist_slugs%5B%5D=warmup

 

Q : 1을 피해서 점프를 몇 번하는가 ?..

 

A : 0인지 1인지 구분해서 값을 증가해서 처리

 

 

program jumpingOnClouds;
var
  iLen, ii, iVal, iZero, iResult : Longint;
begin
  Readln(iLen);
  iZero := 0;
  iResult := 0;
  for ii := 0 to iLen - 1 do 
  begin
    Read(iVal);

    if iVal = 0 then Inc(iZero);

    if (iZero >= 2) or (iVal = 1) then 
    begin 
      Inc(iResult);
      iZero := 0;
    end;
  end;

  Writeln(iResult);
end.