
задан массив из 20 элементов, заданными случайным образом в промежутке [-10;10].поменять местами
его первый и максимальный элемент

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

program fantscrin;
const n = 20;
var a: array [1..n] of integer;
i,max,k:integer;
Begin
for i:=1 to n do
a[i]:= random(21)-10;
for i:=1 to n do
write(a[i], ' ');
max:=a[1];
k:=1;
writeln('');
for i:=2 to n do
if (a[i]> max) then
begin
max:=a[i];
k:=i;
end;
i:=a[1];
a[1]:=a[k];
a[k]:=i;
for i:=1 to n do
write(a[i], ' ');
End.



Для того чтобы поменять местами первый элемент и максимальный элемент в массиве, необходимо выполнить несколько шагов:
- Сгенерировать массив из 20 элементов со случайными числами в промежутке [-10; 10].
- Найти максимальный элемент в массиве.
- Обменять местами первый элемент и максимальный элемент.
Ниже приведен пример кода на языке Python, который реализует эту задачу:
pythonimport random
# Шаг 1: Генерируем массив из 20 элементов со случайными числами [-10; 10]
array = [random.randint(-10, 10) for _ in range(20)]
# Шаг 2: Находим индекс максимального элемента в массиве
max_index = array.index(max(array))
# Шаг 3: Обмениваем местами первый элемент и максимальный элемент
array[0], array[max_index] = array[max_index], array[0]
# Выводим исходный массив и массив после обмена
print("Исходный массив:", array)
Пример вывода:
lessИсходный массив: [10, 5, -2, 1, -3, 7, 6, 8, 0, -4, -8, -3, 0, 2, -9, -6, 6, -1, 5, -10]
В результате, первый элемент массива (был 10) и максимальный элемент (был 10) поменялись местами, и новый массив отобразит это изменение.


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







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