Дан массив размера n вывести второй четный элемент массива и его номер.(На языке паскаль)

begin

 var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;

 var t:=a.Select((x,i)->Arr(x,i)).Where(e->e[0]>0).Skip(1)

   .Take(1).ToArray;

 WritelnFormat('A[{0}]={1}',t[0,1]+1,t[0,0])

end.

Объяснение: