«Зебра». Массив полностью заполнен нулями. Измените значения ** 1 для 1-го, 3-го, 5-го,...

Question

«Зебра». Массив полностью заполнен нулями. Измените значения на 1 для 1-го, 3-го, 5-го, 7-го, 9-го столбцов. Pascal

Answer 1

PascalABC.NET

• ##
• var a := ArrFill(10, 0);
• a.Println;
• a.Transform((x, i) -> i.IsOdd ? x : 1);
• a.Print

Пример работы: