Вопрос по информатике:
Дан массив из 10 вещественных чисел. Посчитать сумму элементов массива с черными номерами
Пожаловаться
- 25.07.2016 19:48
- Информатика
- remove_red_eye 14637
- thumb_up 25
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrGen(10, t -> ReadReal);
var ans:= a.where((v,i) -> (i + 1).IsEven).sum;
Writeln('Сумма элементов с четными номерами: ', ans);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrGen(10, t -> ReadReal);
var ans:= a.where((v,i) -> (i + 1).IsEven).sum;
Writeln('Сумма элементов с четными номерами: ', ans);
end.
Пожаловаться
- 26.07.2016 16:06
- thumb_up 5
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Введите 10 чисел:',10);
Writeln('Искомая сумма равна ',a.Where((x,i)->i.IsOdd).Sum)
end.
Пример
Введите 10 чисел: 3.6 -1.45 2.11 6 3.9 -12.65 4.1 -5 0 11.3
Искомая сумма равна -1.8
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Введите 10 чисел:',10);
Writeln('Искомая сумма равна ',a.Where((x,i)->i.IsOdd).Sum)
end.
Пример
Введите 10 чисел: 3.6 -1.45 2.11 6 3.9 -12.65 4.1 -5 0 11.3
Искомая сумма равна -1.8
Пожаловаться
- 27.07.2016 22:51
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы