Program P1; var a: array [1..50] of integer; {Переменная а - одномерный массив в 50 элементов}; S, I : integer; {Переменная S - сумма элементов, I - счетчик цикла} begin randomize; {включаем генератор случайных чисел}; S:=0; {Обнуляем значение суммы} for I:=1 to 50 do {цикл в 50 повторений} begin a[i]:=random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100;100]} S:=S+a[i]; {Добавляем каждый элемент к значению суммы} end; wrilteln('Сумма всех элементов ', S); {выводим значение суммы} end;
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
Карел Чапек және Йозеф Чапек