Дан массив А вещественного типа, содержащий 20 положительных и отрицательных...

Question

Дан массив А вещественного типа, содержащий 20 положительных и отрицательных элементов.Найти сумму квадратов элементов массива.

Answer 1

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

begin
  var a:=ArrRandom(20,-99,99).Select(k->k/10).ToArray; a.Println;
  Writeln('Сумма квадратов элементов: ',a.Select(x->x*x).Sum)
end.

Пример
-6.7 -6.9 -1.8 7 6.6 6 -8.5 -7.8 6.7 -1.6 -9.3 -4.5 5.9 -4.6 -3.6 -0.2 2.1 4.7 7.5 -5.7
Сумма квадратов элементов: 695.79

Comments

спасибо красава

---

благодарю за хорошую работу

---

Спасибо