Question

Даю 100 баллов. Одномерный массив из 100 элементов заполнен случайным образом. Замените элементы равные 5 на 0.

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(100, -20, 20);

 a.Println;

 a.Transform(p -> p = 5 ? 0 : p);

 a.Print

end.