Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Brodyga007
13.07.2021 09:49 •
Информатика
Напишите программу, которая вычисляет сумму элементов, удовлетворяющих условию: 5
Показать ответ
Ответ:
sirkirik2016
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 оценок)
Популярные вопросы: Информатика
kg9191
08.04.2021 00:10
Напишите наибольшее двузначное число x, для которого истинно высказывание:(ТОЛЬКО ПЕРВАЯ ЦИФРА НЕЧЁТНАЯ) И НЕ (ЧИСЛО ДЕЛИТСЯ НА 6)И (ЧИСЛО ДЕЛИТСЯ НА 7)...
tomchakd
25.12.2020 22:20
8. Объясните, какие виды графиков изображены на рис. 3.42. Почему изображены 2 графика в одной. координатной плоскости Какой график наиболее информативный? ...
тто
25.03.2022 01:34
1. Перечислите основные возможности программы freeDEXpano GUI. 2. Перечислите достоинства и недостатки программы freeDEXpano GUI....
Асат11
12.06.2020 09:51
Верных ответов: 3 сеткатаблицы данныхнастройка линиипредел погрешностейзначения ячейки...
228GGnyb
07.01.2022 03:14
4. Для печати рекламного баннера есть 2 файла с одинаковым содержанием но с разными форматами. Объём свободной памяти устройства составляет 6 Мб. Изображение занимает в формате .JPEG...
Аида524
17.02.2020 15:28
В какие годы создавались компьютеры І поколения? В 1946 – 1958 годыВ 1958 – 1964 годыВ 1964 – 1971 годыВ 1956 – 1960 годыВ 1950 – 1960 годы...
nikoszahar
16.03.2023 08:44
Информатика Задача. Спортсмен приступает к тренировкам по следующему графику: в первый день он должен пробежать 10 км; каждый следующий день следует увеличивать дистанцию на 10% от...
romanchukninA1
22.02.2020 10:37
Вправа 23Написати програму малювання вулиці з кіль-кома будинками з огорожею ...
notmedont
10.12.2022 11:40
Напиши одним словом. название машины, которая перевозит молоко - ?...
Fhbhkdkd
10.12.2022 11:40
Write 8 sentences about the geography of great britain....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.