Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sgagasik
14.06.2021 05:11 •
Информатика
Напишите программу, которая вычисляет сумму элементов, удовлетворяющих условию: 5
Показать ответ
Ответ:
Fezit
07.10.2020 14:58
3) var a:array [1..1000] of longint; n,k,i:integer;
begin
readln(n); k:=0;
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if (a[i]>5) and (a[i]<19) then k:=k+a[i];
writeln(k);
readln; end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Настя456654123321
23.10.2020 23:39
Пиксел имеет rgb цвет 24 битный, какой код имеют : а)белый пиксел , б)чёрный пиксел, в)синий пиксел, г)желтый пиксел....
Nastyushon
29.09.2021 12:58
Нужна . Задание на картинке...
Molina121212
17.04.2021 03:12
Щоб перетворити воду на 2кг снігу, при температурі -30°С, потрібна кількість теплоти?...
konfetkamailrup0acjk
17.04.2021 03:12
Складзiце сказы на экалагiчную тэму паводле прапанаваных схем Мусiць, ] або [=== ___]. 2.[___ ], i [___ ], але [ ]. 3. [ ], затое [ ]. 4. Цi [ ], цi [ ]....
TashaDu
17.04.2021 03:12
Перевести именованный масштаб в численный в 1 см - 14 дм, в 1 см - 3 тыс км, в 1 см - 45 км...
Аринкаlove7002
17.04.2021 03:12
Напишите небольшой поучительный рассказ для детей...
dinaumralieva
24.01.2021 13:06
Для лишайников характерно следующее: 1)высокая скорость роста 2)размножение почкованием 3)образование микоризы – симбиотических взаимоотношений с корнями семенных растений...
irinar1
08.07.2022 05:42
Olma, gilos, anor, shaftoli, xurmo daraxtlari nechayilda hosilga kiradi...
pumferplay
23.02.2021 11:45
7. В чём заключались и чем объяснялись успехи литейного дела в русских землях в конце XVI века?...
viktoriya229
25.04.2023 14:21
Ребят кто нем знает!)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(n); k:=0;
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if (a[i]>5) and (a[i]<19) then k:=k+a[i];
writeln(k);
readln; end.