Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var a:=ArrRandom(10,1,100); a.Println;
  var imax:=a.IndexMax;
  var imin:=a.IndexMin;
  Swap(a[imax],a[imin]); a.Println
end.

Пример
65 47 11 68 51 83 90 73 4 43
65 47 11 68 51 83 4 73 90 43

Answer 2

Я могу помочь вам с написанием кода. Вот один из возможных вариантов программы, которая делает то, что вы просили:

# импортируем модуль для работы со случайными числами
import random

# создаем массив a с 10 элементами
a = [0] * 10

# заполняем массив a случайными целыми числами от 1 до 100
for i in range(10):
    a[i] = random.randint(1, 100)

# выводим на экран исходный массив
print("Исходный массив:", a)

# находим индексы максимального и минимального элементов в массиве a
max_index = 0
min_index = 0
for i in range(1, 10):
    if a[i] > a[max_index]:
        max_index = i
    if a[i] < a[min_index]:
        min_index = i

# меняем местами максимальный и минимальный элементы в массиве a
a[max_index], a[min_index] = a[min_index], a[max_index]

# выводим на экран полученный массив
print("Полученный массив:", a)

Надеюсь, это было полезно.