Question

подсчитать сумму квадратов отрицательных элементов одномерного массива вещественных чисел. Паскаль.

Answer 1

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

begin
  var a:=ReadArrReal('Вводите:',ReadInteger('n='));
  Writeln('S=',a.Where(x->x<0).Select(x->x*x).Sum)
end.

Пример
n= 5
Вводите: 12 -5 0 -7.5 9
S=81.25