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

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