
Помогите пожалуйста. Задано n произвольных чисел. Поменять местами наибольшее и наименьшее чисел.


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

На паскале (Pascal):
program gg;
var a: array[1..1000] of integer;
N, max, min, i1, i2, c: integer;
begin
writeln('Введите количество чисел');
readln(N);
writeln('Введите числа');
for i:= 1 to N do
readln(a[i]);
writeln('Ваши числа:');
for i:= 1 to N do
writeln(a[i]);
max:= a[1];
min:= a[1];
for i:= 2 to N do begin
if a[i] > max then begin
max:= a[i];
i1:= i;
end;
if a[i] < min then begin
min:= a[i];
i2:= i;
end;
end;
c:= a[i2];
a[i2]: = a[i1];
a[i1]:= c;
writeln('Результат:');
for i:= 1 to N do
writeln(a[i]);
end.



Конечно, я помогу вам. Чтобы поменять местами наибольшее и наименьшее числа среди заданных n произвольных чисел, выполните следующие шаги:
- Найдите наименьшее число и его индекс в списке.
- Найдите наибольшее число и его индекс в списке.
- Поменяйте местами значения наименьшего и наибольшего чисел.
Вот пример кода на Python, который реализует эту задачу:
pythondef swap_min_max(numbers):
if not numbers:
return None
min_index = max_index = 0
min_num = max_num = numbers[0]
for i, num in enumerate(numbers):
if num < min_num:
min_num = num
min_index = i
elif num > max_num:
max_num = num
max_index = i
numbers[min_index], numbers[max_index] = numbers[max_index], numbers[min_index]
return numbers
# Пример использования функции
n = int(input("Введите количество чисел: "))
numbers = []
for i in range(n):
num = int(input(f"Введите число {i + 1}: "))
numbers.append(num)
result = swap_min_max(numbers)
print("Результат после замены наименьшего и наибольшего чисел:", result)
Вы можете запустить этот код, ввести количество чисел (n) и сами числа. Он найдет наименьшее и наибольшее числа в списке и поменяет их местами, выведет измененный список на экран.


Похожие вопросы

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







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