Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка...

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.