Question

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

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

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