Напишите, пожалуйста, текст программы данной задачи в Delphi. - вопрос №3505196
Задача Даны действительные числа a1…an. Если в результате замены отрицательных членов последовательности a1…an их квадратами члены будут образовывать неубывающую последовательность, то получить сумму членов исходной последовательности; в противном случае получить их произведение.