Помогите пожалуйста. Задано 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
 
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			