Advertisement
knyazer

Untitled

Dec 17th, 2019
134
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.46 KB | None | 0 0
  1. type
  2.   arrayType = array[1..n] of integer;
  3.  
  4. var
  5.   arr : arrayType;
  6.   i : integer;
  7.   index : integer;
  8.   flag : boolean;
  9.  
  10. begin
  11.   index := -1;
  12.   flag := False;
  13.    
  14.   for i := 1 to n do readln(arr[i]);
  15.    
  16.   for i := 1 to n do
  17.   begin
  18.     if ((abs(arr[i]) mod 2) = 0) and (not flag) then
  19.     begin
  20.       if not (index = -1) then flag := True;
  21.       index := i;
  22.     end;
  23.   end;
  24.   if not flag then
  25.     writeln('NO')
  26.   else
  27.    writeln(index);
  28. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement