Заменить все элементы, большие последнего, ** единицы. Заполнение массива произвести с...

Question

Заменить все элементы, большие последнего, на единицы. Заполнение массива произвести с клавиатуры

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите:',ReadInteger('Количество элементов:'));
  a.Transform(t->t>a.Last?1:t); a.Println;
end.

Пример
Количество элементов: 8
Вводите: 23 -10 5 23 100 -28 4 13
1 -10 5 1 1 -28 4 13