C++ (Qt)for (i = 0 ; i < n ; i++ ) if ( !a[i] ) { s[i] += m*i; ... }
Pascalfor i := 0 to n-1 do if not a[i] then begin s[i] := s[i] + m*i; ... end;