Войти
Регистрация
Спроси ai-bota
AlexLLG
02.06.2022 19:55
Напишите программу,которая в последовательности целых чисел определяет их сумму и количество чётных чисел,кратных 5.
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
DairLayra
14.06.2020 21:30
Препятствующая полоса Вышедший пенсию бегун Усейн Олд решил качестве утренней тренировки пройти полосу прешитетвий. Полоса представляет из себя последовательность из и столбиков...
HeeeeelpPlz
30.05.2021 03:00
Удрессировщика вольки есть волшебная палочка и один лев. за один взмах палочки количество львов или удваивается, или утраивается или увеличивается на 1. к концу представления...
Mexxfr
20.02.2021 08:29
Для виділення рядка (стовпчика) треба: а) вказати в рядку формул номер рядка (ім я стовпця); б) лкм (пкм) по номеру рядка (імені стовпчика); в) ctrl + z; г)ctrl + v....
fill1337
19.06.2021 16:45
Какое чиссло будет выведено на экран : writeln (18 mod 2)? a) 9; б)1; в)0; г)8....
иосиф19
19.06.2021 16:45
Из букв р е к а з у с т составить несколько слов )...
1234554321123456
12.05.2020 00:12
Дана матрица а (5,5). элементы находящиеся ниже основной диагонали изменить на цифру 0, а выше - на 3. изменить элементы диагонали на 7. паскаль авс программу, ....
ПростоПапаЮра
18.08.2020 11:24
Типизированные файлы, pascal 1.ввести с клавиатуры целое число n ( 1). создать файл целых чисел и записать в него n первых положительных четных чисел (2, 4, …). 2.вывести...
lera310520069
26.04.2023 17:16
Переведите число 62 из десятичной системы счисления в двоичную систему счисления . в ответе напишите полученное число...
vladpin01
18.05.2023 17:56
Вычислить объем растрового изображения размером 200×110 точек и палитрой 128 цветов...
Tanya31323
19.02.2021 08:05
Команда по созданию таблицы находится...
Ответ:
Максим228prs
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота