Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Vasilisa5111
04.08.2022 03:14 •
Информатика
Найти сумму элементов массива больше данного числа а
Показать ответ
Ответ:
denmalyshevs
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 оценок)
Популярные вопросы: Информатика
mlpnko2
21.08.2021 00:05
выполнить задание в программе Python...
Fish474
14.04.2023 02:03
Дано пятизначное число. Проверить, является ли оно палиндромом и вывести ответ Да или Нет . Примечание: палиндромом называется число, одинаково читающееся в обоих направлениях....
Алиса20090327
09.02.2021 02:31
Program o; uses crt; var B:array[1..10] of integer; i,k,n,kol:integer; begin writeln ( vvedite kol-vo elementov massiva ); readln(n); for i:=1 to 10 do begin writeln...
ressoli442
12.02.2020 13:13
Дочке в школе задали : по информатике: компания выпустила лотерейные билеты трех разрядов: для молодежи, для взрослых, для пенсионеров. номера билетов каждого разряда...
соннышко
12.02.2020 13:13
Логическое выражение ¬y \/ ¬((х v y) λ ¬y) λ х λ ¬y максимально упpощаетcя до выражения 1) х λ y 2) ¬y 3) х 4) 1 с решением...
Губанова1234
24.10.2020 01:13
Вычеслите 2sin(7n/2 - a) z 5cos(17n - a), если cosa =-0,3...
raksanaasifovna
05.02.2023 03:28
очень география 8 класс...
XiaomiK
31.08.2021 16:37
Вычислите: cos - 4П/3...
sadskhoolgirl
23.02.2020 11:51
1/2x-x^2 - x-4/2x-x^2 =2/4-x^2...
baekksas
12.03.2023 14:28
. Проаналізуйте розу вітрів за один із зимових місяців в одному з міст України і виберіть опис погоди. А переважала антициклональна погода без опадів, з сильними морозами...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.