Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
РУСЛАН113228
24.05.2020 21:26 •
Информатика
Дан массив из 10 вещественных чисел. посчитать сумму элементов массива с черными номерами
Показать ответ
Ответ:
art171
26.08.2020 19:09
// 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
0,0
(0 оценок)
Ответ:
andrii213
26.08.2020 19:09
// 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.
0,0
(0 оценок)
Популярные вопросы: Информатика
наталья732
24.02.2022 23:17
Статья, набранная на компьютере, содержит 12 страниц, на каждой странице 96 строк. информационный объем статьи составляет 90кбайт. определите количество символов...
max78789867
11.12.2020 12:22
Алфавит состоит из 200 символов. какое количество информации несет один символ этого алфавита?...
jernova
01.07.2022 15:29
Сколько различных путей проходящих из вершины А в вершину З через верешину Д...
abereziuk2017
27.06.2020 12:24
После преобразования растрового графического файла его объем уменьшился в 1,5 раза. сколько цветов было в палитре первоначально, если после преобразования было получено...
Nastyusha222
29.08.2020 17:54
Какие общие признаки слов в ложке в норку...
jjiki
29.08.2020 17:54
Написать сочинение на тему моя мама бухгалтер...
Br0shn1k
29.08.2020 17:54
Представь треугольник и квадрат. преобразуй свой мысленный образ в графические и текстовые данные....
supermichail29
29.08.2020 17:54
1) the cat was with the sausage but it didn t like it. a)feed b)fed c)feeds d)feeding 2) children are everything best their parents can do for them. a)given b)gave...
АллахВТравелах
29.08.2020 17:54
С, : * №2. дополните предложения одним из трёх данных вариантов. 1. morgen abend habe ich viel zu tun, … a) trotzdem möchte ich mir dieses theaterstück ansehen....
arzanix
29.08.2020 17:54
700700-6054x(47923-47884)-65548 решите в столбик )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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:= ArrGen(10, t -> ReadReal);
var ans:= a.where((v,i) -> (i + 1).IsEven).sum;
Writeln('Сумма элементов с четными номерами: ', ans);
end.