Question

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

Answer 1

//Pascal
var
  A: array [1..10] of byte;
  i, Min, MinID: byte;
begin
  randomize;
  Min := 100;
  for i := 1 to 10 do
  begin
    A[i] := random(20) + 1;
    if A[i] < Min then
    begin
      Min := A[i];
      MinID := i;
    end;
  write(A[i], ' ');
  end;
  writeln;
  writeln('Минимальный элемент A[',MinID,'] = ', Min);
  readln;
end. 

Answer 2

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

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

# Создаем пустой массив a размером 10
a = [None] * 10

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

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

# Инициализируем переменные min и min_index, которые будут хранить минимальный элемент массива и его индекс
min = a[0] # Предполагаем, что минимальный элемент - это первый элемент массива
min_index = 0 # Соответственно, его индекс - это 0

# Проходим по всем элементам массива, начиная со второго
for i in range(1, 10):
    # Если текущий элемент меньше, чем min, то обновляем min и min_index
    if a[i] < min:
        min = a[i]
        min_index = i

# Выводим минимальный элемент и его индекс на экран
print("Минимальный элемент:", min)
print("Его индекс:", min_index)