Даны натуральное число n, действительные числа a₁, a₂, ...,  [tex] a_{n} [/tex] . Написать программу на языке программирования Pascal для вычисления [tex] \sqrt{a ^{2} _{1} + a^{2} _{2} +... + a^{2} _{n} }[/tex]

Особенность решения в том, что вводимые значения а1, а2,... не хранятся в каких-либо массивах.

Var   A:array[1..10000] of real;   i,n:integer;   S:real;BeginRandomize;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.

// 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.28.9162772500635