Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
sapogidarom
06.07.2020 22:19 •
Информатика
Напишите программу,которая в последовательности целых чисел определяет их сумму и количество чётных чисел,кратных 5.
Ответ:
матиматик31
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 оценок)
Популярные вопросы: Информатика
vamagic2001
02.06.2021 18:26
Требовалось написать программу, которая вводит с клавиатуры последовательность натуральных чисел, оканчивающихся нулем, и выводит на экран сумму четных чисел среди этой последовательности....
Елизаветакотовамимар
17.07.2021 23:02
Что выводит на экран следующая программа? program: ta6 type: culoare = (galben,verde,albastru,violet) begin: writeln(pred ( z )) writeln (succ( d )) writeln(pred (-5)) writeln(ord...
sasha2000val
17.07.2021 23:02
Слово кит закодировано с использованием алфавита из 64 символов. определите количество информации в этом сообщении в битах....
gferangiz
10.12.2020 03:47
Друзья решили зашифровать сообщения из английских букв записывая вместо каждой буквы её номер в алфавите даны 4 шифровки 16153 20121 13225 71205 только одна из них расшифровывается...
ксюнчик12
15.03.2022 17:53
Html программирование. Вывести поговорку про радугу, каждая фраза является заголовком на уровень выше предыдущего, располагается на новой строке и окрашены своим цветом...
Никитар456
02.12.2021 17:12
1. Какая из пар чисел (2; 12). (5: 0). (4; 8), (-1; 24),(3:6) является решением уравнения 4х +y=20?...
Yournick
17.03.2020 17:50
Выберите истинное и ложное утверждениеъ...
anishenkovayana
09.02.2020 05:03
Упрости выражение 12y+5y+y 70x-25x-15x4c+c+16c52x-17x7c+105c83p-26p93a+25a+7...
dashullya2001
06.01.2020 14:51
Сөйлемді дұрыс құрастыр. алмайды, және, адам, ересек, жете, сауатсыз, өмірде, оқымаған, табысқа. ...
tel9057969295p0bj7i
04.09.2022 01:39
Шашып (антоним) - [1] Егемендікке (синоним) -...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// 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