Question

Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка [-10,60]. − удалить из него все элементы, в которых последняя цифра четная, а само число делится на нее.

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
    var a := ArrRandomInteger(12, -10, 60);
    a.Println;
    a.Where(x -> not ((x mod 2 = 0) and (x mod 10 <> 0) and (x mod (x mod 10) = 0))).Println;
end.

Answer 2

Для решения этой задачи, вы можете использовать язык программирования, такой как Python. Вот пример кода, который удаляет элементы из массива, удовлетворяющие заданным условиям:

pythonCopy code
import random

# Создаем массив с случайными целыми числами в диапазоне [-10, 60]
n = 12
array = [random.randint(-10, 60) for _ in range(n)]

# Создаем новый массив, исключая элементы, удовлетворяющие условиям
filtered_array = [x for x in array if x % 10 % 2 == 1 or x % 10 != 0]

# Выводим исходный массив
print("Исходный массив:", array)

# Выводим отфильтрованный массив
print("Отфильтрованный массив:", filtered_array)

Этот код создает массив с случайными числами в указанном диапазоне, а затем создает новый массив, исключая элементы, которые соответствуют заданным условиям (последняя цифра нечетная и число не делится на нее).