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