Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Aliskaliska27
29.01.2020 20:59 •
Информатика
Вцелочисленом массиве a(35) найти количество нечетных элементов имеющих четные индексы. считается что в массиве есть хотя бы один элемент, удовлетворяющий условию
Показать ответ
Ответ:
mahmetova22
07.10.2020 11:43
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(35,-99,99); a.Println; // индексы от нуля!
Writeln('S=',a.Where((v,i)->i.IsEven and v.IsOdd).Sum)
end.
Пример
-71 65 -4 -59 -76 -8 -63 43 78 84 6 -59 26 -95 -80 99 67 11 -48 -35 38 -86 78 48 91 -91 78 2 96 83 25 2 -62 45 82
S=49
0,0
(0 оценок)
Популярные вопросы: Информатика
silverking
01.05.2020 16:34
Чому дорівнює значення х після виконання послідовності присвоювань: var x, y: integer; х : = 10; y : = 3*х; х : = х + y; (записати відповідь числом...
danilowamariy7p06vj8
02.04.2023 06:35
Запишите самое большое четырехразрядное число в шестнадцатеричной системе счисления...
AlinaZimina2003
08.03.2023 05:30
Алгоритм ключа с черчежника кумир...
julia071201
08.09.2021 11:36
зарание Маркированными списками являются:ИнформатикаМатематикаБиологияХимияфизикао Информатикаo МатематикаБиологияХимияoooфизикаo1. Информатика2. Математика3. Биология4....
незнайка2901
24.03.2020 08:19
Кегль- ринг. Урок 2. Определите количество используемых в программе датчиков ....
AloysiuS
17.02.2021 03:03
Как влияет предварительная систематизации информации на скорость поиска? 1.скорость поиска информации возрастает 2.скорость поиска информации уменьшается 3.скорость поиска...
doc2934
04.02.2021 23:41
Скажите, , эти программы правильные? (название проги - номер ))program four; uses crt; var a, b, c, d, kop, rub: real; begin clrscr; writeln( sena 1 kg fruktov ); readln(a);...
бегуния
20.03.2020 21:00
100 + лучший ответ! написать программу на с:...
anja565449
06.11.2022 06:25
Дан массив, содержащий 2018 положительных целых чисел, не превышающих 1. необходимо найти и вывести максимальный из тех элементов этого массива, восьмеричная запись которых...
Aleksandr541
19.01.2022 20:34
Сортировка хоаранужно составить код сортировки хоара на языке pascal, не используя при этом procedure quicksort и clrscr;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(35,-99,99); a.Println; // индексы от нуля!
Writeln('S=',a.Where((v,i)->i.IsEven and v.IsOdd).Sum)
end.
Пример
-71 65 -4 -59 -76 -8 -63 43 78 84 6 -59 26 -95 -80 99 67 11 -48 -35 38 -86 78 48 91 -91 78 2 96 83 25 2 -62 45 82
S=49