Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
efrdariya14
24.03.2022 10:55 •
Информатика
Найти сумму всех элементов массива целых чисел, больших заданного числа, больших заданного числа. размер массива 10 заполнения массива осуществить со случайными числами от 50 до 100
Ответ:
ovosh228322
01.09.2020 09:53
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,50,100); a.Println;
var n:=ReadInteger('n=');
Writeln('Сумма элементов, больших ',n,', равна ',a.Where(x->x>n).Sum)
end.
Пример
71 89 78 99 99 70 82 68 56 69
n= 73
Сумма элементов, больших 73, равна 447
0,0
(0 оценок)
Популярные вопросы: Информатика
сснсогаоаг
06.01.2020 11:49
Задача С++ Полярный угол точки Найдите полярный угол точки на плоскости. Формат входных данных Два целых числа - декартовы координаты точки, не совпадающей с началом...
Natashazzz
29.06.2022 05:45
Выполните арифметические действия: 1)346 в восьмеричной-64 в восьмеричной 2)1022 в шестнадцатеричной-5a в шестнадцатеричной 3)24ecl в шестнадцатеричной* 22 в шестнадцатеричной...
ЕВБ
29.06.2022 05:45
Сколько бит памяти займёт слово controller...
helpplease14
29.06.2022 05:45
Паскаль 1. одномерный массив а длиной n =20 заполнить случайными числами из диапазона [–15..80]. составить программу определения: первого минимального элемента массива;...
kata198722
29.06.2022 05:45
Ужени было 111011 в двоичной яблок. он отдал 11100 в двоичной яблок василию и сам съел 110 в двоичной яблок . сколько осталось яблок у жени? подробное решение...
popopolka111
29.06.2022 05:45
Написать программу на паскале. найти 11 последовательных натуральных чисел, сумма квадратов которых сама является квадратом натурального числа....
папаочка228
03.05.2022 08:18
2.)как выполняется питание: компьютерных мышей проводных и без проводных клавиатуры проводной и без проводной мониторов гарнитур (а требуется ли питание) наушников...
dsayui56
02.07.2022 06:15
Какой оператор в записи разветвляющегося алгоритма на языке Python соответствует значению если? ...
lizachumakova2
10.12.2020 20:12
Python тілінде шығарылуын жаз! * Z=kx+5 xв квадрате-20...
Luchik22
11.09.2022 02:03
1. Дайте ответы на предложенные вопросы: a. Какова причина сбора информации о Земле в период Древнего мира? (1)b. Заполните предложенную таблицу № Вклад путешественников...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,50,100); a.Println;
var n:=ReadInteger('n=');
Writeln('Сумма элементов, больших ',n,', равна ',a.Where(x->x>n).Sum)
end.
Пример
71 89 78 99 99 70 82 68 56 69
n= 73
Сумма элементов, больших 73, равна 447