Question

заполнить массив произвольной размерностью случайными числами из промежутка {-400;400} . вывести его на экран в строчку. заменить все четные положительные элемента массива на нуль .вывести измененный массив на экран
очень надо !!!!!!

Answer 1

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

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -400, 400);

 a.Println;

 Writeln;

 a.Transform(p -> (p > 0) and p.IsEven ? 0 : p);

 a.Print

end.