Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Умник6791
02.03.2022 09:49 •
Информатика
Водномерном массиве подсчитать сумму двоек
Ответ:
Марат991
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 оценок)
Популярные вопросы: Информатика
rjt54
03.12.2020 06:30
запиши программу на языке паскаль ...
Маруся1799
15.09.2020 07:50
Впаскаль. перераспределить значения переменных х и у так,чтобы в х оказалось больше этих значений а в у-меньше...
13022010
15.09.2020 07:50
Было отсканировано цветное изображение размером 10х15 см с разрешением 100dpi и количеством цветов 65536 .файл был сохранен в формате bmp без сжатия.из предложенных вариантов выберете...
rafael700rg
15.09.2020 07:50
Кондитерская фабрика представила спрос на пироги с различной начинкой за три месяца(май, июнь, июль) в виде гистограммы. определите среднее значение спроса на пироги с той начинкой,...
Suprunenko2007
13.12.2022 20:57
Решить, ) var a,b,t,m,r : integer; function f(x: integer): integer; begin f : = 9 * (x + 19) * (x - 19) + 1; end; begin a : = -20; b : = 20; m : = a; r : = f(a); for t : = a to...
dimon564557
27.04.2021 20:32
ИНФОРМАТИКА 5 КЛАСС Рассмотрите устройства Определите какие из них являются устройствами ввода информации А какие устройства вывода информации...
kseniatrof
17.08.2021 15:56
Распределите данные программы в таблице (полностью название программ записываем в таблицу) Системное ПОПрикладное ПОСистемы программирования ДрайверыГрафический редактор PaintТекстовый...
Nina34732
27.09.2021 17:09
Положительно качество человека…А) лень Б) хвастовство В) пунктуальность...
NAPAS228
03.09.2022 20:36
Збирач рукописних та старовинних книжок і торговець ними _ у _ _ _ _ с _ Чорнильне серце ...
Маминбандит138
27.09.2021 17:09
Мәтіндегі оқиға желісін ретімен қойып шығып ,нөмірле...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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