Дан массив из 10 вещественных чисел. Посчитать сумму частей массива с

Дан массив из 10 вещественных чисел. Посчитать сумму частей массива с темными номерами

Задать свой вопрос
2 ответа
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadArrReal('Введите 10 чисел:',10);
  Writeln('Разыскиваемая сумма равна ',a.Where((x,i)-gt;i.IsOdd).Sum)
end.

Пример
Введите 10 чисел: 3.6 -1.45 2.11 6 3.9 -12.65 4.1 -5 0 11.3
Искомая сумма равна -1.8
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
var a:= ArrGen(10, t -gt; ReadReal);
var ans:= a.where((v,i) -gt; (i + 1).IsEven).sum;
Writeln('Сумма частей с четными номерами: ', ans);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт