PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var p := ReadArrInteger('Вводите:', 20);

 var a := ReadInteger('a =');

 p.IndexesOf(t -> t > a).Println; // индексы от нуля!

 p.IndexesOf(t -> t > a).Select(t -> t + 1).Println; // номера от 1

end.

Пример

Вводите: -16 30 -24 30 -14 -11 -16 -2 -14 7 -23 9 9 11 -10 -5 25 30 -22 -6

a = 5

1 3 9 11 12 13 16 17

2 4 10 12 13 14 17 18

Выберите, что Вам нужно и удалите лишний вывод