Описание Процедура возвращает одновременно сумму и сумму квадратов всех значений числового массива Data. При вызове процедуры SumsAndSquares вычисления производятся быстрее, чем при последовательном вызове двух функций Sum и SumOfSquares.
Пример var
Mas: array of Double;
Sum, SumSqr: Extendes;
I: Byte;
begin
...
SetLength(Mas, 10); for i:= 0 to 9 do Mas[i]:= i/10;
SumsAndSquares(Data, Summa, SumSqr); { Summa:= 4.5; SumSqr:= 2.85 }
...