// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(ReadInteger('k='),-99,99); a.Println;
Writeln('Квадратный корень из суммы квадратов элементов равен ',
sqrt(a.Select(x->sqr(x)).Sum):0:5)
end.
Тестовое решение
k= 7
-50 67 23 -80 -22 -5 68
Квадратный корень из суммы квадратов элементов равен 138.02536