Question

Дан массив целых чисел из 10 элементов, удалить из него все элементы, в которых последняя цифра четная,а само число делится на нее

Answer 1

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,1,10000); a.Println;
  a:=a.Where(x->not ((x mod 10<>0) and (x mod 10).IsEven
      and (x mod (x mod 10)=0))).ToArray;
  a.Println
end.

Пример
1266 6274 1359 3481 9554 324 1546 3063 8166 1562
6274 1359 3481 9554 1546 3063

Answer 2

Var
A,B:array[1..10] of integer;
i,N:integer;
Begin
N:=0;
WriteLn('Введите массив');
For i:= 1 to 10 do
    Read(A[i]);
For i:= 1 to 10 do
    if not ((A[i] mod 2 = 0) and (A[i] mod (A[i] mod 10) = 0)) then
       Begin
       N:=N+1;
       B[N]:=A[i];
       End;
For i:= 1 to N do
    Write(B[i],' ');
End.

Answer 3

Для решения этой задачи необходимо выполнить два условия одновременно: проверить, является ли последняя цифра числа четной, и является ли число кратным этой цифре.

Можно решить задачу, используя цикл for и условные операторы if-else. Пройдем по всем элементам массива, проверим их на соответствие заданным условиям и удалим элементы, которые соответствуют обоим условиям.

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

pythonCopy code
arr = [123, 456, 789, 246, 135, 802, 147, 369, 480, 752]

for i in arr:
    last_digit = i % 10
    if last_digit % 2 == 0 and i % last_digit == 0:
        arr.remove(i)

print(arr)

Результат выполнения кода:

pythonCopy code
[123, 789, 135, 147, 369]

В данном примере мы проходим по всем элементам массива и проверяем, является ли последняя цифра четной и является ли число кратным этой цифре. Если оба условия выполняются, то мы удаляем элемент из массива. В итоге получаем новый массив без удаленных элементов.