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

Ответы 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 131 -10 5 1 1 -28 4 13
    • Автор:

      brayden
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years