Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Tori163
20.11.2022 23:37 •
Информатика
Напишите программу,которая в последовательности целых чисел определяет их сумму и количество чётных чисел,кратных 5.
Показать ответ
Ответ:
Айрона
17.09.2020 18:01
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1
0,0
(0 оценок)
Популярные вопросы: Информатика
Слендер12
11.01.2023 13:02
Допиши единицы измерения так, чтобы они стояли по порядку. Бит, ..т, ..байт, ..байт, ..байт, ..байт....
yuratihonov
29.03.2022 04:15
ЗРОБИТИ В ПАЙТОНІ стефанія купила 3 порції морозива і 2 пляшки газованої води, а Михайло - 2 порції того самого морозива і 3 пляшки тієї самої газованої води. Складіть...
v0632039813
27.01.2021 21:45
Вывести на экран в столбик все четные трехзначные числа, меньшие 200. начертить блок-схему в тетради! написать программу. 100 102 104… в программе кумир...
zirkonij556
11.08.2022 13:19
40 ! сделать паскаль 1.составьте программу, которая вычисляет сумму всех нечетных, двузначных чисел; 2.дано натуральное число n. вычислите n5; 3.дано число n. напечатать...
kristina13131
10.04.2020 02:16
С ИНФОРМАТИКОЙ РЕШИТЕ ХОТЯ БЫ ОДНУ 1)Даны два массива А и В из 20 однозначных чисел. В первом из них записано количество мячей, забитых футбольной командой в игре,...
pe4onkina
16.10.2020 04:20
Пользователь работал с каталогомD:\ ФУТБОЛ\ЧМ\2018\РОССИЯ. Сначала он поднялся на три уровня вверх, затем спустился в каталог ФОТО, после этого спустился в каталог...
Russiangirl27
01.04.2021 10:21
Кто тут репер? сочинить клип на тему новый год 2017...
бэдгерл1
01.04.2021 10:21
1) 2х+2=-3 2)-х-2+3(х-3)=3(4-х)=3 решите уравнение заранее ))...
Полинка1608
01.04.2021 10:21
Детям дано составить рассказ по трем картинкам. картинки надо расположить в определенной последовательности. составьте краткое описание такого и укажите, какие...
Genius2020
01.04.2021 10:21
Этот правитель стал первым императором в россии....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1