Задан линейный массив целых чисел. выбросить - вопрос №6633745 от Asoooollll 12.06.2022 07:43

Question

Информатика: Задан линейный массив целых чисел. выбросить из данного массива элементы, удовлетворяющие следующим свойствам: элементы равные нулю

Asoooollll · Answer

// 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