Question

Дан вектор {zi}, i = 1, . . ., 50. Составьте программу ввода значений и вычисления длины этого вектора по следующей формуле

Answer 1

program VectorLength;
var   Vector: array [1..50] of real;   Length, Sum: real;   i: integer;
begin   Sum := 0;
  writeln('Введите значения вектора:');   for i := 1 to 50 do   begin     write('Введите z', i, ': ');     readln(Vector[i]);     Sum := Sum + sqr(Vector[i]);   end;
  Length := sqrt(Sum);
  writeln('Длина вектора: ', Length:0:2);
     readln; end.