// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
begin
var a:=ArrRandom(10,1,10); a.Println;
var s:=a.Aggregate(0,(x,y)->x+(y+2));
for var i:=0 to 9 do Writeln('C[',i+1,']=',s/sqrt(abs(a[i])));
end.
Пример:
2 9 10 8 10 8 7 10 3 3
C[1]=63.64
C[2]=30.00
C[3]=28.46
C[4]=31.82
C[5]=28.46
C[6]=31.82
C[7]=34.02
C[8]=28.46
C[9]=51.96
C[10]=51.96