Pascalabc.net дан массив из 20 целых чисел,все элементы - вопрос №2019560219 от Luikas45676345 22.02.2020 23:19

Question

Информатика: Pascalabc.net дан массив из 20 целых чисел,все элементы меньше 10 заменить на 1, и вывести получившиеся массив на экран. заполнение массива с клавиатуры.

Luikas45676345 · Answer

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

var a := ReadArrInteger(20);

a.Transform(t -> t < 10 ? 1 : t);

a.Println

end.

Pascalabc.net дан массив из 20 целых чисел,все элементы меньше 10 заменить на 1, и вывести получивши