Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
KarinaRihter
21.05.2023 12:48 •
Информатика
Напишите программу,которая в последовательности целых чисел определяет их сумму и количество чётных чисел,кратных 5.
Ответ:
Dodoso
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 оценок)
Популярные вопросы: Информатика
Амира573
07.02.2021 10:03
Почтовый индекс в некоторой стране состоит из одной первой буквы (используется 25-символьный алфавит) и трёх десятичных цифр, среди которых может быть не более двух 0. сколько...
евака2
14.03.2021 01:26
Укажите примеры программ, проанализировав ситуацию: 1) ученые научно-исследовательского института расшифровывают записи переданные марсоходом 2) создатели нового мобильного...
Efimenko34
14.03.2021 01:26
Укажите, что из перечисленного не является логическим выражением? а) земля-третья планета от солнца б) в десятичной системе счисления два плюс два равно пять в) нравится...
yarrik00yaroslavchik
15.05.2020 14:14
Даны длина, ширина и высота параллелепипеда. найти сумму длин всех его ребер, объём и площадь поверхности....
listik194
06.09.2021 16:36
C++ Удаление элементаУдалите из массива элемент в индексом k. Обратите внимание, считывание и вывод массива уже написаны за вас, необходимо написать только фрагмент программы...
AsiMy
01.02.2023 18:22
Дополните придложение Линейный алгоритм......
пельменьярости
16.08.2021 16:21
5 : Ввести пять чисели найти наибольшее из НИХ.Введите пять чисел:4 15 9 56 4Наибольшее число 56 В ПРОГРАММЕ ПИТОН БЕЗ ФУНКЦИЙ min И max...
GOLUBOVICH0400
19.02.2023 19:38
ів. Складіть програму, у якій користувач вводить вік(к-сть років), апрограма виводить на екран такі повідомлення:1. якщо вiк менше 14, то: «Це дитина!»;2. якщо вік 15-18,...
GABITOV2018
07.05.2021 04:08
2.Линейный алгоритм это-Ж какой подскажите!...
smokeech
03.07.2020 12:19
Составь короткий рассказ , в котором светофор человеком...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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