tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу,которая в
Напишите программу,которая в последовательности целых чисел определяет их сумму и количество чётных чисел,кратных 5.
Яприсоединилась
3 11.07.2019 06:20
5
Ответы
iNNA9078
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
амир299
09.02.2022 10:44
В алгоритме записанном ниже используются целочисленные переменные а,b и с.Определите значение переменной с после исполнения данного алгоритма а:=35 b:=4 b:=a div...
hhhttt1520
09.02.2022 10:48
— 2. Дан фрагмент кода на языке программирования Python. Перечислите переменные, которые используются в программе. a = 5 b = 3 ответ C = 5 d=y+z+с [2]...
Audika
14.04.2020 11:25
Постановка задачи. Известны два числа. Вычислить произведение этих чисел, если они оба положительные. Согласно поставленной задаче выполните ручную отладку: опишите...
alena02122005
14.04.2020 11:25
Какую кнопку клавиатуры необходимо нажать и удерживать, что бы нарисовать закруглённый квадрат?...
kusainovy03
03.06.2019 14:20
Вычислить сумму элементов массива, кратных 3.количество элементов в массиве 25....
kimaleks1977
03.06.2019 14:20
Вводится n. найти произведение натуральных чисел от 1 до циклами) для paskalabc....
LaGGeRiSTiK
03.06.2019 14:20
Сколько символов текста можно передать за 5 секунд используя модем,работающий со скоростью 28800 бит/сек? ,)...
cherrpaha
10.05.2019 14:09
Фрагмент процедури для обчислення суми значень всіх елементів табличної величини -...
Vivy12
10.05.2019 14:07
Основные подходы к определению понятия информация...
Pomashка03
10.05.2019 13:59
Організація отримала мережу 193.1.1.0 (клас визначте самостійно) і їй необхідно сформувати 12 підмереж. найбільша підмережа повинна підтримувати 8 хостів. розрахуйте...
Популярные вопросы
На рисунке изображен с газом. Опишите, как изменяется давление...
2
Кто организует первую церемонию открытия, ставшую традиционной...
1
3. Решите задачу с составления уравнения. Разность двух чисел...
3
Решить неравенства: 1. 9x 72; 2. –15x≤40; 3. x/8 4; 4. 2(3+x)...
3
230. Прочитайте выразительно текст. Определите его стиль и тип....
3
№3. Найдите площадь треугольников и установите соответствие:...
2
Твори опис про хортицю на особисті враження у художньому стилі...
1
Астанада қаласының бұрынғысы және қәзіргісі туралы мәлімет даю...
1
Какую массу соды (безводный карбонат натрия Na2CO3) необходимо...
2
Прочитайте предложения и прокомментируйте употребление в них...
1
// 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