Задан линейный массив целых чисел. Выбросить из данного массива элементы, удовлетворяющие следующим свойствам: элементы равные нулю
Задан линейный массив целых чисел. Выбросить из данного массива элементы, удовлетворяющие следующим свойствам: элементы равные нулю
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-9,9); a.Println;
a:=a.Where(x->x<>0).ToArray; a.Println
end.
Пример
n= 20
-1 0 8 5 8 -6 -8 9 8 -8 3 2 0 6 3 2 0 -1 -5 3
-1 8 5 8 -6 -8 9 8 -8 3 2 6 3 2 -1 -5 3
Не нашли ответ?
Похожие вопросы