Необходимо написать программу на pascal.Даны естественное число n и вещественные числа

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

Задать свой вопрос
1 ответ
PascalABC.NET 3.4

begin
  var n := ReadInteger('n=');
  var a := ReadArrReal(n);
  var s := a.Select(p -gt; p*p).Sum;
  Writeln(s)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт