Регистрация
fukk123Q
27.04.2022 16:52
Информатика
Есть ответ 👍

нужно зделать программу на С

135
311
Посмотреть ответы 1

Ответы на вопрос:

evenen
evenen
4,4(52 оценок)
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

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

Популярно: Информатика