Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
123456445
24.12.2020 15:50 •
Информатика
Составьте программу которая заполняет массив a[1..8] случайными целыми числами диапазоне от 1 до 10 и выводит на экран количество элементов с четными значениями и сумму элементов массива с нечетными значениями
Показать ответ
Ответ:
Katellil3
04.10.2020 17:36
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(9,1,10); a.Println;
Writeln('Сумма четных ',a.Where(x->x.IsEven).Sum);
Writeln('Количество нечетных ',a.Where(x->x.IsOdd).Count)
end.
Пример
9 1 4 2 3 10 10 8 3
Сумма четных 34
Количество нечетных 4
0,0
(0 оценок)
Популярные вопросы: Информатика
lazzat8
05.07.2020 18:02
Нарисуйте на кардинатной плоскости: а(2; 5) в(1; 3) с(0; 3) d(1; 2) e(0; 0) f(2; 1) g(4; 0) s(3; 2) m(5; 3) n(3; 3)...
НастяБлог
15.01.2021 14:35
Напишите имя Настя в чертежнике(программа.кумир) УМОЛЯЮ...
FarzEtdk
07.04.2023 15:30
Каким классом можно дополнять файл, но не перезаписывать? Как правило, при создании объекта класса PrintWriter всё содержимое файла удаляется. В Java*...
birdibir
14.04.2021 21:32
1.Определите является ли данный граф взвешенным? (да или нет) 2. Определите и запишите вес ребра (если определить невозможно, то поставь 0)...
DarkneSS341
15.04.2023 04:11
Обрахуйте : 18%5. у поле введіть лише число...
ksysharoma123
28.10.2022 08:40
Для тех кто знает этот язык Обчислити і вивести на екран у вигляді таблиці значення функції F, де a, b, c – дійсні числа. Значення a, b, c ввести з клавіатури....
annlazzzkova
27.01.2020 14:08
Напишите блок-схему и программу к задаче: Найти максимум среди чисел одномерного массива. Массив задан целыми числами от 1 до...
равиль7777777
21.08.2021 15:31
(нарисуйте дорожки в paint)...
52681
21.08.2021 15:31
В велокроссе участвуют 64 спортсмена. Специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер цепочкой из нулей и единиц...
aida2801
15.05.2020 10:11
Считая, что один символ кодируется 8 битами, определите, чему равен информационный объём следующей пословицы: Васька слушает да ест....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(9,1,10); a.Println;
Writeln('Сумма четных ',a.Where(x->x.IsEven).Sum);
Writeln('Количество нечетных ',a.Where(x->x.IsOdd).Count)
end.
Пример
9 1 4 2 3 10 10 8 3
Сумма четных 34
Количество нечетных 4