Question

Напишите программу Задать массив,состоящий из 20 элементов .Найти минимальный элемент массива, не кратный 7​ПОЖАЛУЙСТА!

Answer 1

Ответ:

Ну, Коли язык не указан, предположу что требуется решение на самом популярном для школ PascalABC.NET

begin

 ArrRandom(20, -99, 99).Where(x -> x mod 7 <> 0).Min.Println;

end.

Answer 2

Конечно! Вот пример программы на языке Python, которая создает массив из 20 элементов, а затем находит минимальный элемент, не кратный 7:

pythonCopy code
def find_min_not_divisible_by_7(arr):
    min_value = float('inf')  # Устанавливаем начальное значение минимального элемента на бесконечность
    
    for num in arr:
        if num % 7 != 0 and num < min_value:
            min_value = num
    
    return min_value

if __name__ == "__main__":
    # Создаем массив из 20 элементов
    array = [i for i in range(1, 41)]  # Можно выбрать любые числа
    
    # Находим минимальный элемент, не кратный 7
    result = find_min_not_divisible_by_7(array)
    
    print("Минимальный элемент, не кратный 7:", result)

Эта программа создаст массив чисел от 1 до 40 (включительно) и найдет минимальное значение из них, не кратное 7. Вам, конечно, можно изменить массив или его элементы по своему усмотрению.