Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
agisheveevelina
07.01.2020 06:02 •
Информатика
Найти сумму элементов массива больше данного числа а
Показать ответ
Ответ:
aigerka19
22.06.2020 11:33
Var b:array[1..100] of integer;
i, sum, a:integer;
Begin
read(a);
for i:= 1 to 100 do begin
b[i]:= random(100);
if b[i] < a then
sum:= sum + b[i];
end;
writeln(sum);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
superscholnik1772
14.10.2021 07:37
Последовательность чисел генерируется лямбда-функцией: def generate_number(): return lambda random_seed: (random_seed*693 + 5)%100 number = generate_number() член...
Кариночка78
14.10.2021 07:37
Последовательность чисел генерируется лямбда-функцией: def generate_number(): return lambda random_seed: (random_seed*693 + 5)%100 number = generate_number() член...
kris0287
15.05.2023 00:29
Написать программу в паскале вводим число, проверить извлекается из него корень?...
Анель1342
11.11.2021 23:13
Напишите программу на языке паскаль: найти все числа в диапазоне от 1 до 100, которые делятся на 5, но не делятся на 10....
nvede
07.03.2021 02:02
Написать программу пользователь вводит число, проверить извлекается ли из этого числа корень...
могистер3271
22.02.2022 06:44
Имеются описания: type season = (winter, spring, summer, autumn); var x, y: season; t: (warmth, cold); что будет напечатано? write(ord(spring)–ord(autumn)+ord(cold));...
golubalex01
18.09.2021 21:10
билем лэнд Магазин компьютерной техники использует базу данных для хранения информации о товарах. Выбери верные условия, которые необходимо выбрать, чтобы найти...
Ласточка005
13.08.2022 14:55
Проанализируй код программы,напиши ее результат. a= информатик b= класс print(len(a),b)...
polinaponomare1
21.01.2020 20:16
Конъюнкция и дизъюнкция и инверсия...
kisa1756
06.12.2021 18:49
Составьте алгоритм для вычисления произведения нечетных натуральных чисел на промежутке от 51 до 100...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, sum, a:integer;
Begin
read(a);
for i:= 1 to 100 do begin
b[i]:= random(100);
if b[i] < a then
sum:= sum + b[i];
end;
writeln(sum);
End.