Question

Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [50; 150] и находит в нём минимальный и максимальный элементы и их номера.​

Answer 1

// PascalABC.NET 3.6

begin

 var a := ArrRandom(20, 50, 150);

 var (imax, imin) := (0, 0);

 for var i := 1 to a.High do

 begin

   a[i].Print;

   if a[i] > a[imax] then

     imax := i

   else if a[i] < a[imin] then

     imin := i

 end;

 Writeln;

 $'Минимальный элемент номер  {imin+1} равен {a[imin]}'.Println;  

 $'Максимальный элемент номер {imax+1} равен {a[imax]}'.Println;  

end.

Answer 2

Конечно, вот пример программы на языке Python, который выполняет указанные задачи:

pythonCopy code
import random

# Создаем пустой массив из 20 элементов
array = []

# Заполняем массив случайными числами на отрезке [50; 150]
for _ in range(20):
    random_number = random.randint(50, 150)
    array.append(random_number)

# Инициализируем переменные для минимального и максимального элементов и их номеров
min_element = float('inf')
max_element = float('-inf')
min_index = -1
max_index = -1

# Проходимся по массиву, находим минимальный и максимальный элементы и их номера
for i in range(len(array)):
    if array[i] < min_element:
        min_element = array[i]
        min_index = i
    if array[i] > max_element:
        max_element = array[i]
        max_index = i

# Выводим результаты
print("Сгенерированный массив:", array)
print("Минимальный элемент:", min_element, "на позиции", min_index)
print("Максимальный элемент:", max_element, "на позиции", max_index)

Программа создает массив из 20 случайных чисел на отрезке [50; 150], затем находит минимальный и максимальный элементы в массиве, а также их номера (позиции) в массиве. Выводит исходный массив, минимальный и максимальный элементы, а также их позиции.