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

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

Программа в два оператора сложная??? А попроще - это когда их полтора десятка?

К сожалению, Вы не указали диалекта/версии паскаля, на котором нужна программа. Это Ваш недочет. Поэтому совершенно непонятно, почему теперь нужно делать двойную работу из-за Вашего недостаточно серьезного отношения в вопросу. Чужой труд, хоть он и бесплатный, все же надо уважать...

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

Пожалуйста

// 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.Printlnend.