
Дано целое число N и набор из N чисел. Найдите номер первого наибольшего и номер последнего
наименьшего числа в наборе. Ввод Целое число N и набор из N чисел в одной строке. Вывод Номер первого наибольшего и номер последнего наименьшего числа в наборе. Ввод 10 4 3 1 7 9 1 9 2 5 6 Вывод 5 6 Пожалуйста очень срочно

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

var i,mi,ma,a1,a2,a,n:integer;
begin
read(n);
mi:=1;
ma:=1;
read(a);
a1:=a;
a2:=a;
for i:=2 to n do
begin
read(a);
if a > a1
then begin
ma:=i;
a1:=a;
end;
if a <= a2
then begin
mi:=i;
a2:=a;
end;
end;
writeln(ma,' ',mi);
end.



var
a:array [1..100] of integer;
i,n,max,min: integer;
begin
writeln ('vvedite n');
readln(n);
max:=0;
min:=1000;
for i:=1 to n do
begin
readln a[i];
end;
for i:=1 to n do
begin
if a[i]>max
then max:=a[i]
end;
begin
if a[i]>min
then min:=a[i]
end;
writeln (max,min);
end.



Для решения данной задачи, нам необходимо найти номер первого наибольшего числа и номер последнего наименьшего числа в заданном наборе чисел.
Входные данные:
- Целое число N - количество чисел в наборе. - Набор из N чисел.Выходные данные:
- Номер первого наибольшего числа. - Номер последнего наименьшего числа в наборе.Пример:
Ввод: ``` 10 4 3 1 7 9 1 9 2 5 6 ``` Вывод: ``` 5 6 ```Для решения этой задачи, мы можем использовать следующий алгоритм: 1. Инициализируем переменные `max_num` и `min_num` со значениями первого числа в наборе. 2. Инициализируем переменные `max_index` и `min_index` со значениями 1. 3. Проходим по оставшимся числам в наборе, начиная с индекса 2. 4. Если текущее число больше `max_num`, обновляем `max_num` и `max_index`. 5. Если текущее число меньше или равно `min_num`, обновляем `min_num` и `min_index`. 6. По окончании прохода, возвращаем `max_index` и `min_index`.
Применяя этот алгоритм к примеру из вводных данных, мы получим следующий результат: - `max_num` = 9, `max_index` = 6 (пятый элемент в наборе). - `min_num` = 1, `min_index` = 7 (шестой элемент в наборе).
Таким образом, номер первого наибольшего числа в наборе - 5, а номер последнего наименьшего числа - 6.
Примечание: Для проверки достоверности данного ответа, рекомендуется использовать другие источники информации или выполнить ручную проверку.


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







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