Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать натуральные значения от 1 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит минимум среди элементов массива, делящихся нацело на 7, а затем заменяет каждый элемент, делящийся нацело на 7, на число, равное найденному минимум. Гарантируется, что хотя бы один такой элемент в массиве есть. В качестве результата необходимо вывести изменённый массив, каждый элемент выводится с новой строчки.

Answer 1

PascalABC.NET ₃.₆.₃.₂₅₇₇

Ответ:

• ##
• var a := ReadArrInteger('Введите массив:', 30);
• var m := a.Min(x -> x mod 7 = 0 ? x : 10001);
• a.Transform(x -> x mod 7 = 0 ? m : x);
• Println('Результат:');
• a.PrintLines

Пример работы:

Answer 2

Пример решения на языке Python:

pythonCopy code
def find_and_replace(arr):
    # Находим минимум среди элементов, делящихся нацело на 7
    divisible_by_7 = [num for num in arr if num % 7 == 0]
    min_divisible_by_7 = min(divisible_by_7)
    
    # Заменяем каждый элемент, делящийся нацело на 7, на минимум
    for i in range(len(arr)):
        if arr[i] % 7 == 0:
            arr[i] = min_divisible_by_7
    
    return arr

# Пример входного массива из 30 элементов (можно изменить значения)
input_array = [105, 42, 21, 14, 28, 77, 84, 91, 98, 70, 140, 350, 490, 21, 63, 140, 77, 56, 1001, 500, 700, 2000, 140, 70, 21, 49, 980, 315, 70, 28]

result_array = find_and_replace(input_array)

# Выводим изменённый массив
for num in result_array:
    print(num)

Примечание:

• Функция find_and_replace находит минимум среди элементов, делящихся нацело на 7, и заменяет все такие элементы на этот минимум.
• Вы можете изменить значения в input_array для тестирования на различных наборах данных.