Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Неизвестный17781
12.10.2020 12:20 •
Информатика
Составить программу и блок - схему к : вводится последовательность из n целых чисел. найти сумму отрицательных.
Показать ответ
Ответ:
Alla123489
02.10.2020 11:32
Program al;
var a:array[1..32000] of integer;
n,s,i:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv');
for i:= 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do
if a[i]<0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alon4ik123
01.02.2020 07:08
ИНФОРМАТИКУ НЕ ШАРЮ ОТДАМ 30Б...
yusdanila
15.03.2021 14:11
1. векторное изображение формируется * a) из объектов b) из точек c) из рисунков d) из пикселей 2. при сканировании изображения будет получено * a) векторное изображение...
NeGaTiV1488228
21.09.2020 11:47
Pascal требуется посчитать сумму целых чисел, расположенных между числами 1 и n включительно. входные данные в единственной строке входного файла input.txt записано единственное...
zaydfudimp0dicv
07.05.2023 14:45
Построить блок-схему! нужно построить блок схему по заданной ....
daniiltkachuk1p02aol
18.03.2021 12:41
По информатике 1,2,3 из 1 вариснта...
czar15
14.01.2023 12:32
Определи расстояние на плоскости между двумя точками с заданными координатами m1(x1,y1)и m2(x2,y2) . ответ введи целым числом. если координаты точек: x1=2; y1=7x2=8; y2=12...
AlvantoBerlando
30.10.2020 23:01
Дано описание массива: var a: array [1..47] of integer; здесь oписан массив a из целочисленных значений. при выполнении этого оператора в памяти компьютера будет выделено...
lisovak0777
25.02.2022 03:23
Знайдіть катет прямокутного трикутника,якщо гіпотенуза і другий катет відповідно дорівнюють 10 та 8...
annakostomarova
25.02.2022 03:23
У исполнителя Квадратор две команды, которым присвоены номера: 1. Возведи в квадрат; 2. Вычти 3. Исполнитель Квадратор работает только с натуральными числами. Составьте...
томкавеликая
26.01.2022 14:07
определите тип и форму биотических связей:1.клёст питается семенами ели 2.рыбка -клоун и актиния3.черепаха и рыбы-прилипалы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..32000] of integer;
n,s,i:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv');
for i:= 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do
if a[i]<0 then s:=s+a[i];
writeln('s=',s);
readln;
end.