Question

Заполнить массив из 13 элементов случайными числами в интервале [10..-10] и найти в нем минимальный элемент и его номер Пожалуйста, очень нужно

Answer 1

//PascalABC.NET v3.3 1633

var arr: array [1..13] of integer;

begin

 for var i:=1 to 13 do

   arr[i]:=random(-10,10);

 arr.PrintLn(', ');

 

 writeln('Минимальный элемент: '+arr.Min());

 write('Его индекс(ы): ');

 for var i:=1 to 13 do

   if arr[i]=arr.Min() then write(i+' ');

end.

Answer 2

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

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

begin

   var arr := ArrRandomInteger(13, -10, 10);

   Println(arr);

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

end.

Answer 3

Конечно, я помогу вам заполнить массив случайными числами в заданном интервале и найти минимальный элемент и его номер. Для этого вам понадобится программный код. Вот пример кода на языке Python:

pythonCopy code
import random

# Функция для заполнения массива случайными числами в интервале [-10, 10]
def fill_array_with_random_numbers(arr, size):
    for i in range(size):
        arr.append(random.randint(-10, 10))

# Создаем пустой массив и заполняем его случайными числами
array = []
array_size = 13
fill_array_with_random_numbers(array, array_size)

# Находим минимальный элемент и его индекс в массиве
min_element = min(array)
min_index = array.index(min_element)

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

Программа создаст массив из 13 элементов со случайными числами в интервале [-10, 10], а затем найдет минимальный элемент и его индекс в массиве.