Составить программу для вычисления длины n-мерного вещественного вектора Х = (Х1, Х2, ..., Xn) по формуле

L=sqrt (((X1) ^2) + ((X2) ^2) + ... + ((Xn) ^2))

Const

nm = 50; {максимальная размерность вектора}

var

i, n: integer;

x: array[1 ... nm] of real;

s: real;

begin

Write ('Введите размерность вектора n - > ') ;

Readln (n) ;

Write ('Вводите координаты вектора через пробел ') ;

s : = 0;

for i : = 1 to n do

begin

Read (x[i]) ;

s : = s + sqr (x[i])

end;

Writeln ('Длина вектора равна ', sqrt (s) : 0:4)

end.

Тестовое решение:

Введите размерность вектора n - > 7

Вводите координаты вектора через пробел - 3.54 0.532 2.6 12 - 3 0 1.47

Длина вектора равна 13.2188