Написать программу на pascal даны натуральное - вопрос №8756877 от ERTEND 10.05.2023 23:45

Question

Информатика: Написать программу на pascal даны натуральное число n, действительные числа y1, , yn. найти: max(|z1|, , |zn|), где zi = yi при |yi| =2, 0,5 в противном случае.

ERTEND · Answer

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

Написать программу на pascal даны натуральное число n, действительные числа y1, , yn. найти: max(|z1

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