Даны натуральное число n, действительные числа a₁, a₂, ..., . Написать программу **...

Question

Даны натуральное число n, действительные числа a₁, a₂, ..., . Написать программу на языке программирования Pascal для вычисления

Answer 1

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

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

Пример
n= 4
Вводите a1, a2, ...:
3 2.5 6.1 -5.2
8.9162772500635

Answer 2

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.