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

Ответы (1)

Эверт 05.02.2025 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.Println
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

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

Думаешь ответы не верны?

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