Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
stipstip353p090as
28.09.2021 05:30 •
Информатика
Водномерном массиве подсчитать сумму двоек
Ответ:
Mamiksem
08.10.2020 01:48
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
Writeln('Сумма двоек равна ',a.Where(t->t=2).Sum)
end.
Пример
n= 15
2 6 6 2 8 5 3 1 8 0 0 2 8 3 6
Сумма двоек равна 6
0,0
(0 оценок)
Популярные вопросы: Информатика
zaret1
27.02.2022 22:35
Заполнить массив из 9 элементов степенями 2, начиная с 20=1. массив объявлен как var mas12: array [0..8] of integer. вывести значения элементов на экран в одну строку через...
anastasiyabalk1
18.01.2020 10:57
1. разработать схему алгоритма для ввода четырёх целых чисел и вычисления их среднего арифметического....
maximax325
18.01.2020 10:57
1. разработать схему алгоритма для ввода четырёх целых чисел и вычисления их среднего арифметического. 2. разработать схему алгоритма для вычисления дискриминанта d квадратного...
MrKot007
27.10.2021 03:25
25 . 7)составить программу, которая по заданному a исследует корни уравнения ax=5 и выводит на экран значение вычисленного корня а если нет то сообщение (корней нет)....
ulyana14547
27.10.2021 03:25
Опишите систему хранения файлов на диске...
Арина838383773
05.09.2020 00:04
Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. сначала записывается исходная цепочка символов, после неё за¬писывается буква, следующая...
1337luntik2282
05.09.2020 00:04
Опишите систему хранения файлов на диске....
Alishan060606
05.09.2020 00:04
Нужно выражение) ¬(¬(¬a v ¬b) & (a v b))...
daniar16
22.08.2022 06:01
Некоторый алфавит содержит 512 символов.каков информационный вес каждого символа?...
муксик
22.08.2022 06:01
Сколько битов информации содержится в сообщении объемом 0,75 кбайта?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
Writeln('Сумма двоек равна ',a.Where(t->t=2).Sum)
end.
Пример
n= 15
2 6 6 2 8 5 3 1 8 0 0 2 8 3 6
Сумма двоек равна 6