Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Qdiiit
25.07.2020 10:45 •
Информатика
"составьте программу вычисления суммы элементов от первого отрицательного и до конца" pascal abc.
Показать ответ
Ответ:
danialSANDY
01.10.2020 17:29
Var
mas:array[1..100] of integer;
i,n,sum:integer;
bool:boolean;
begin
bool:=false;
sum:=0;
readln(n);
for i:=1 to n do
begin
read(mas[i]);
if mas[i]<0 then
bool:=true;
if bool=true then
sum:=sum+mas[i];
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AlekseyLascot
18.10.2022 10:38
Записать арифметическое выражение на алгоритмическом языке и указать порядок выполнения операций....
maksim15m15
02.06.2021 04:27
ИНФОРМАТИКА Напишите html-код для создания следующей страницы используя Tег Font и соответствующие атрибуты каждое слово печатается цветом соответствующим его заглавной буквы...
Nadezhda3422
08.08.2021 10:39
ОЧЕНЬ Какие параметры Web страницы задаст данный тег BODY TEXT = #000000 BGCOLOR= yellow ...
АминаКамалиева1
17.11.2022 10:45
Для чего тп?это по информатике. Помагите ...
ДашаУмняшаТ
24.01.2020 17:21
Python Задача 1. З клавіатури вводиться два числа. Знайти суму парних чисел, які розміщені між ними. Задача 2. Вивести на екран такий рядок: n! = 1*2*3*4*5*...*n...
Misha91111
20.04.2021 02:42
Наведіть кілька прикладів графіки які оточують саме вас...
kazan20001202
06.06.2022 13:04
У меня СОЧ по информатике!...
djokerzcoziirem9
28.04.2023 02:21
Разработайте программу,еоторая вычисляла бы значения функции.Какой вариант записи вложенных условий должен использоваться в данной программе ,ПЛЕЕС...
nazfire2003
19.04.2023 18:57
Заархивируйте фразу и оцените ее размер до и после Кукушка кукушонку купила капюшон надел кукушонок капюшон Как в капюшоне он смешон!...
shaihiev
15.05.2021 16:38
Размер при однобайтной кодировки до сжатия после сжатия...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
mas:array[1..100] of integer;
i,n,sum:integer;
bool:boolean;
begin
bool:=false;
sum:=0;
readln(n);
for i:=1 to n do
begin
read(mas[i]);
if mas[i]<0 then
bool:=true;
if bool=true then
sum:=sum+mas[i];
end;
writeln(sum);
end.