Предмет: Информатика,
автор: azaza288
Оставить в массиве те элементы, которые не делятся ни на 2, ни на 3, ни на 5.
Массив сжать.
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a.Where(x->(x mod 2<>0) and (x mod 3<>0) and
(x mod 5<>0)).ToArray;
a.Println
end.
Пример
n= 20
18 3 19 -3 40 -27 43 -1 4 -21 -12 3 -14 3 -27 37 45 11 23 -28
19 43 -1 37 11 23
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a.Where(x->(x mod 2<>0) and (x mod 3<>0) and
(x mod 5<>0)).ToArray;
a.Println
end.
Пример
n= 20
18 3 19 -3 40 -27 43 -1 4 -21 -12 3 -14 3 -27 37 45 11 23 -28
19 43 -1 37 11 23
Автор ответа:
0
Спасибооо!!!
Автор ответа:
0
Пожалуйста
Похожие вопросы
Предмет: Геометрия,
автор: mail012014
Предмет: Химия,
автор: Alisa0823729983
Предмет: Математика,
автор: liteff
Предмет: Алгебра,
автор: tansylu27
Предмет: Математика,
автор: shernoshtan