Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
andreyvlasov22
03.02.2020 19:19 •
Информатика
"составьте программу вычисления суммы элементов от первого отрицательного и до конца" pascal abc.
Показать ответ
Ответ:
124541Artem11111
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 оценок)
Популярные вопросы: Информатика
lolloo99
23.08.2020 23:04
Скорость передачи данных через ADSL-соединение равна 6144 бит/с. Передача файла через данное соединение заняла 32 секунды. Определите размер этого файла в килобайтах....
MaksimKim2005koreec
18.04.2020 16:03
Вариант 3 1)Алгоритм вычисления следующего выражения: у = 12a2 + 7a - 16. 2)Составить алгоритм решения задачи для определения впишется ли квадрат в круг, если известны сторона...
шкиль1
08.05.2023 16:32
Почему в паскале выдает такой результат, какой-то шифр, а не нормальный вывод...
kamila0277
24.04.2021 16:47
Вчём сходство линейной презентации с линейным алгоритмом ? 1)в одинаково подборке материала? 2)в последовательности 3)в наличии оглавления...
sanyabuzin04gd
23.09.2021 21:38
По теме «содержательный подход к измерению информации» 1. какое количество информации несет сообщение о результате жребия при бросании монеты (например, выпал орел)? 2....
таир20
31.03.2020 11:15
1. С какой целью применяется условное форматирование? 2.Что нужно сделать с диапазоном ячеек, чтобы применить условное форматирование?3. Каким образом можно вставить Значки...
Tumanovaad12
02.05.2022 18:31
Знайдіть значення виразу 5a-3(m-n); якщо a=1,2; m=2; n=1....
Djilsi
08.02.2023 23:15
1. Что общего и отличного между африканскими и азиатскими странами? 2. Как вы думаете, каково отношение стран мирового сообщества к государствам африканского региона? 3....
altaeva81
02.01.2020 16:00
Дан прямой код числа, записанный в 8-ми разрядном представлении со знаком. Какое из перечисленных чисел является данным десятичным числом? Прямой код:10111111...
Шекспир112005
02.01.2020 16:00
Периметр трикутника вершини якого- середини сторін даного трикутника, дорівнює 54 см, а сторони даного трикутника відносяться як 3:7:8. Знайдіть найменшу зі сторін даного...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.