TYVJ题解（P1025）

 Program Problem_1025;
Var n,i,j,k:Longint;
Var a:array[1..10000] of Longint;
Procedure Print(a:String;b:Longint);
Begin
IF b<>n Then
Writeln(a)
Else
Write(a);
End;
Begin
Readln(n);
For i:=1 to n do Read(a[i]);
For i:=1 to n do
Begin
IF a[i] mod 2=0 Then
Print('even',i)
Else Print('odd',i);
End;
End.

PS：不一定最优。