
Среди 15 действительных чисел, введеных с клавиатуры, подсчитать количество элементов, равных
последнему, и выдать их номера на экран

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

N=15;
Var a: array [1..N] of integer;
i, y : integer;
Begin
for i:=1 to N do readln(a[i]);
y:=0;
for i:=1 to N do
If a[i]=a[N] then
begin
y:=i;
writeln (y);
end;
End.



Для решения данной задачи нам потребуется использовать язык программирования. Приведу пример решения на языке Python:
```python # Вводим 15 действительных чисел с клавиатуры numbers = [] for i in range(15): number = float(input("Введите число: ")) numbers.append(number)
# Получаем последнее число last_number = numbers[-1]
# Подсчитываем количество элементов, равных последнему числу, и выводим их номера на экран count = 0 indices = [] for i, number in enumerate(numbers): if number == last_number: count += 1 indices.append(i)
print("Количество элементов, равных последнему числу:", count) print("Их номера:", indices) ```
Пример работы программы: ``` Введите число: 1 Введите число: 2 Введите число: 3 Введите число: 4 Введите число: 5 Введите число: 6 Введите число: 7 Введите число: 8 Введите число: 9 Введите число: 10 Введите число: 11 Введите число: 12 Введите число: 13 Введите число: 14 Введите число: 15 Количество элементов, равных последнему числу: 1 Их номера: [14] ```
В данном примере мы считываем 15 чисел с клавиатуры, сохраняем их в список `numbers`. Затем находим последнее число из списка `last_number`. Далее мы проходим по списку `numbers` с помощью цикла `for`, и если число равно последнему числу, увеличиваем счетчик `count` и добавляем номер элемента в список `indices`. В конце выводим количество элементов, равных последнему числу, и их номера на экран.


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili