Question

дан массив целых чисел состоящих из 20 элементов заполните его с клавиатуры. Вывести индексы тех элементов значения которых больше числа а

Answer 1

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

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

Answer 2

Хорошо, вот пример кода на языке Python, который позволяет заполнить массив с клавиатуры, а затем выводит индексы элементов, значения которых больше заданного числа "а":

pythonCopy code
# Создаем пустой массив для хранения введенных чисел
array = []

# Заполняем массив с клавиатуры
for i in range(20):
    num = int(input(f"Введите число для элемента {i + 1}: "))
    array.append(num)

# Вводим число "а", с которым будем сравнивать элементы массива
a = int(input("Введите число 'а': "))

# Инициализируем список для хранения индексов элементов, значения которых больше "а"
indexes_greater_than_a = []

# Проверяем каждый элемент массива и добавляем его индекс в список, если оно больше "а"
for i, num in enumerate(array):
    if num > a:
        indexes_greater_than_a.append(i)

# Выводим результаты
print(f"Массив: {array}")
print(f"Индексы элементов, значения которых больше {a}: {indexes_greater_than_a}")

Сначала код просит вас ввести 20 чисел с клавиатуры и сохраняет их в массив array. Затем он запрашивает число "а", с которым будем сравнивать элементы массива. После этого, он проходит по всем элементам массива и сохраняет индексы элементов, значения которых больше "а" в список indexes_greater_than_a, который выводится на экран в конце.