Question

Составьте программу, которая заполняет одномерный целочисленный массив из 100 элементов случайным образом в диапазоне от 1 до 40 , выводит заполненный массив на экран, а затем находит минимальный элемент и номер ячейки, которые после нахождения выводятся на экран

Answer 1

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
writeln('исходный массив:');
var a:=ArrRandom(100,1,40).Println();
var k:=1;
foreach var item in a do if item=a.Min then break else inc(k);
writeln('минимальный элемент: a[',k,']=',a.Min());
end.

Answer 2

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

pythonCopy code
import random

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

# Заполняем массив случайными числами от 1 до 40
for _ in range(100):
    array.append(random.randint(1, 40))

# Выводим заполненный массив на экран
print("Заполненный массив:")
print(array)

# Находим минимальный элемент и его индекс
min_element = array[0]
min_index = 0
for i in range(1, len(array)):
    if array[i] < min_element:
        min_element = array[i]
        min_index = i

# Выводим минимальный элемент и его индекс на экран
print(f"Минимальный элемент: {min_element}")
print(f"Индекс минимального элемента: {min_index}")

Этот код создает массив из 100 случайных целых чисел в диапазоне от 1 до 40, выводит массив на экран, а затем находит минимальный элемент и его индекс, выводит их на экран.