Здравствуйте! Помогите написать программу ** Pascal Даны натуральное число n,...

Question

Здравствуйте! Помогите написать программу на Pascal
Даны натуральное число n, действительные числа y1, ... , yn.
найти:
max(|z1|, ... , |zn|),
где zi = yi при |yi| <=2,<br> 0,5 в противном случае.

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  ReadSeqReal('Введите '+n+' чисел:',n)
      .Select(y->Abs(y)<=2?Abs(y):0.5).Max.Println<br>end.

---

Comments

Спасибо) Только вы можете написать это немного попроще?)

---

ок, спасибо за ответ