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
Начало
Взять нож
Взять хлеб
Взять колбасу
Взять масло
Взять сыр
Отрезать кусок хлеба
Намазать его маслом
Отрезать кусок колбасы
Положить её сверху на хлеб
Отрезать кусок сыра
Положить его сверху на колбасу
Отрезать ещё один кусок хлеба
Положить Его на сыр
Убрать на место сыр колбасу хлеб и нож
бутерброд готов
конец
Может надо перегрузить этот фаил. Я всегда перегружаю и всё работает.
Допустим число 11 первое число 1×10=10
11=101