Елизарович 28 ноября 2019 в 05:22
Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка [-10,60].
− удалить из него все элементы, в которых последняя цифра четная, а само число делится на нее.
Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка [-10,60].
− удалить из него все элементы, в которых последняя цифра четная, а само число делится на нее.
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandomInteger(12, -10, 60);
a.Println;
a.Where(x -gt; not ((x mod 2 = 0) and (x mod 10 lt;gt; 0) and (x mod (x mod 10) = 0))).Println;
end.
begin
var a := ArrRandomInteger(12, -10, 60);
a.Println;
a.Where(x -gt; not ((x mod 2 = 0) and (x mod 10 lt;gt; 0) and (x mod (x mod 10) = 0))).Println;
end.
Компьютеры и вычисления
264
0
Для комментирования необходимо зарегистрироваться на сайте