Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Прост2004
05.09.2021 07:15 •
Информатика
Пользователь вводит целочисленный массив из 25 элементов . вычислить сумму элементов массива, меньших -12
Показать ответ
Ответ:
miroslav1234
21.09.2020 20:14
//Pascal ABC.NET v3.0 сборка 1111
Const
n=25;
Var
ar:array[1..n] of integer;
s,i:integer;
begin;
s:=0;
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i]<12 then s:=s+ar[i];
end;
writeln('Sum=',s);
end.
Пример ввода:
1
2
...
9
-10
-11
..
-19
20
21
..
25
Пример вывода:
Sum=-100
0,0
(0 оценок)
Популярные вопросы: Информатика
maryartis111
24.02.2022 08:32
Укажите условие,при котором программа завершится...
dygbejs
22.03.2022 09:06
Напишите программу на выражение...
Boss008Mta
10.06.2022 20:30
Дан массив состоящий из 20-ти целых чисел, найти количество положительных и произведения отрицательных чисел...
mynee
27.06.2022 16:09
ДО ТЬ, БУДЬ ЛАСКА, 5 ПИТАНЬ....
Антон446534
14.07.2021 07:36
Определи расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1)и M2(x2,y2). ответ введи целым числом. Если координаты точек: x1=5; y1=3;...
alinkis11
02.05.2023 13:30
В Python 3. «A»: Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале [10,99], и находит максимальный и минимальный элементы в...
Nikronix
26.03.2022 01:06
Расположите номера за в порядке возрастания количества страниц которые найдет поисковый сервер по каждому за ...
sayanasssss
28.01.2021 05:39
Разработать программу в которой производится определение номера введённого с клавиатуры символа по кодовой таблице на языке паскаль...
dhgdfnhflk
15.06.2022 06:41
В то же мгновение щелкнуло что-то — тонкий звук — как будто лопнула натянутая резина. Слепцов открыл глаза и увидел: в бисквитной коробке торчит прорванный кокон,...
755766
21.06.2020 22:24
Б) В один день в отделе искусств нальной библиотеки занимались160 читателей, что в 4 раза больше, чемв отделе мультимедиа, а в отделе «КнигиКазахстана» столько же,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Const
n=25;
Var
ar:array[1..n] of integer;
s,i:integer;
begin;
s:=0;
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i]<12 then s:=s+ar[i];
end;
writeln('Sum=',s);
end.
Пример ввода:
1
2
...
9
-10
-11
..
-19
20
21
..
25
Пример вывода:
Sum=-100