Question

Нужно написать программу на pascal.Даны натуральное число n и вещественные числа а1, а2, а3, ..., аn. Определить сумму квадратов вещественных чисел.

Answer 1

PascalABC.NET 3.4

begin
  var n := ReadInteger('n=');
  var a := ReadArrReal(n);
  var s := a.Select(p -> p*p).Sum;
  Writeln(s)
end.