Advertisement
knyazer

Untitled

Dec 17th, 2019
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.34 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.  
  9. begin
  10.   index := -1;
  11.    
  12.   for i := 1 to n do readln(arr[i]);
  13.    
  14.   for i := 1 to n do
  15.   begin
  16.     if (abs(arr[i]) mod 2) = 1 then index := i;
  17.   end;
  18.   if index = -1 then
  19.     writeln('NO')
  20.   else
  21.    writeln(index);
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement