Заменить все элементы, большие последнего, на - вопрос №8980696 от StanleyPines618 19.05.2021 23:59

Question

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

StanleyPines618 · 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