Question

Сформировать одномерный массив B(30) из случайных целых чисел на интервале [-500,500]. Массив распечатать. Отсортировать массив по возрастанию. Массив распечатать. В массиве найти минимальный элемент и его индекс. Распечатать его значения.

Answer 1

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var arr := ArrRandomInteger(30, -500, 500);

   Println(arr);

   arr.Sort;

   Println(arr);

   WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());

end.

Answer 2

Вот решение вашей задачи на языке Python:

pythonCopy code
import random

# Формирование массива B(30) из случайных целых чисел на интервале [-500, 500]
B = [random.randint(-500, 500) for _ in range(30)]

# Печать исходного массива
print("Исходный массив B:")
print(B)

# Сортировка массива по возрастанию
B_sorted = sorted(B)

# Печать отсортированного массива
print("Отсортированный массив B:")
print(B_sorted)

# Поиск минимального элемента и его индекса
min_element = min(B)
min_index = B.index(min_element)

# Печать значения минимального элемента и его индекса
print("Минимальный элемент:", min_element)
print("Индекс минимального элемента:", min_index)

Пример вывода:

yamlCopy code
Исходный массив B:
[10, -420, 281, 193, -218, 350, -271, -474, -52, -128, 233, -273, 391, 362, 62, 476, 106, -23, 256, -402, -288, -37, -478, -289, 342, 119, -252, -28, 108, -98]
Отсортированный массив B:
[-478, -474, -420, -402, -289, -288, -273, -271, -252, -218, -128, -98, -52, -37, -28, -23, 10, 62, 106, 108, 119, 193, 233, 256, 281, 342, 350, 362, 391, 476]
Минимальный элемент: -478
Индекс минимального элемента: 0

Обратите внимание, что каждый раз при запуске кода будут генерироваться новые случайные числа, поэтому результаты могут отличаться.