Даны естественное число n, действительные числа a, a, ...,  [tex] a_n

Даны натуральное число n, действительные числа a, a, ...,  a_n . Написать программу на языке программирования Pascal для вычисления  \sqrta ^2 _1 + a^2 _2 +... + a^2 _n

Задать свой вопрос
2 ответа
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('Вводите a1, a2, ...: ');
  Writeln(sqrt(ReadSeqReal(n).Select(x-gt;x*x).Sum))
end.

Пример
n= 4
Вводите a1, a2, ...:
3 2.5 6.1 -5.2
8.9162772500635
Var
   A:array[1..10000] of real;
   i,n:integer;
   S:real;
Begin
Randomize;
Write('n = ');ReadLn(n);
S:=0;
Write('Начальный массив A(',N,'):');
For i:= 1 to N do
    Begin
    A[i]:=random*(N*2+1)-N;
    Write(' ',A[i]:0:3);
    S:=S+A[i]*A[i];
    End;
WriteLn;
S:=Sqrt(S);
WriteLn('S = ',S);
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт