Нужно написать программу на pascal.Даны натуральное число n и вещественные числа а1, а2, а3, ..., аn. Определить сумму квадратов вещественных чисел.
Ответы
Ответ дал:
0
PascalABC.NET 3.4
begin
var n := ReadInteger('n=');
var a := ReadArrReal(n);
var s := a.Select(p -> p*p).Sum;
Writeln(s)
end.
begin
var n := ReadInteger('n=');
var a := ReadArrReal(n);
var s := a.Select(p -> p*p).Sum;
Writeln(s)
end.
Похожие вопросы
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад