Заменить все элементы, большие последнего, на единицы. - вопрос №8981373 от elnareismayilo 24.09.2020 21:39

Question

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

elnareismayilo · Answer

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