
Составьте программу, которая заполняет массив а(1..10) случайными целыми числами в диапазоне от 1
до 100, затем меняет местами максимальный и минимальный элементы. Выведите на экран исходный и полученный массивы.

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

const n=10;
var a:array [1..n] of integer;
i,max,min,imax,imin:integer;
begin
min:=100;
max:=1;
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(100)+1;
if a[i] > max then
begin
max:=a[i];
imax:=i
end;
if a[i] < min then
begin
min:=a[i];
imin:=i
end;
write(a[i]:3,' ')
end;
writeln;
a[imax]:=min;
a[imin]:=max;
write('Полученный массив: ');
for i:=1 to n do write(a[i]:3,' ')
end.



Вот пример программы на языке Python, которая выполняет описанные действия:
pythonimport random
# создаем массив и заполняем его случайными числами
a = [random.randint(1, 100) for _ in range(10)]
# выводим исходный массив на экран
print("Исходный массив:")
print(a)
# ищем индексы минимального и максимального элементов массива
min_idx = a.index(min(a))
max_idx = a.index(max(a))
# меняем местами минимальный и максимальный элементы
a[min_idx], a[max_idx] = a[max_idx], a[min_idx]
# выводим измененный массив на экран
print("Измененный массив:")
print(a)
Программа создает массив a
и заполняет его 10 случайными целыми числами в диапазоне от 1 до 100 с помощью генератора списков. Затем она выводит исходный массив на экран.
Для нахождения минимального и максимального элементов мы используем метод index()
для получения индексов этих элементов в массиве. Затем мы меняем местами минимальный и максимальный элементы с помощью присваивания нескольких значений.
Наконец, программа выводит измененный массив на экран.


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







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