Дано число a (1<= a <= 1.5). Среди чисел 1 + 1/2, 1 + 1/3, 1 + 1/4 . . . (заметим, что каждое следующее число в последовательности меньше предыдущего)
найдите первое, меньшее a.(нужен код на языке python)

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var Z:=ArrRandom(ReadInteger('n='),1,99);
  Writeln('Массив Z'); Z.Println;
  Writeln('Массив X');
  var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]);
  X.Println;
  Writeln('Массив Y');
  var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]);
  Y.Println
end.

Пример
n= 8
Массив Z
74 17 35 3 33 84 48 39
Массив X
19.5 1.5 42 8.5
Массив Y
16 11.6666666666667 11 24.6666666666667

#include<iostream>

using namespace std;

signed main() {

setlocale(LC_ALL, "Rus");

int N;

cin >> N;

int* a = new int[N];

for (int i = 0; i < N; i++)

{

 cin >> a[i];

}

//выводим индексы четных элементов

cout << "Номера тех элементов, значения которых чётны: ";

for (int i = 0; i < N; i++) {

 if (a[i] % 2 == 0)

  cout << i << " ";

}

//выводим весь массив

cout << "\nМассив: ";

for (int i = 0; i < N; i++)  

 cout << a[i] << " ";

return 0;

}