Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
123gordeev
28.09.2021 21:25 •
Информатика
Дана последовательность чисел, найти сумму отрицательных элементов ( в pascal )
Ответ:
esyajm
09.10.2020 11:14
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger('Вводите:', ReadInteger('n='))
.Where(t -> t < 0).Sum.Println
end.
Примерn= 7Вводите: 13 -27 52 0 5 -10 -42-79
0,0
(0 оценок)
Популярные вопросы: Информатика
alenzhaparkulov
29.01.2023 07:19
Смс, состоящее из 30 символов написано с раскладки (буквы строчные и заглавные, знаки препинания, цифры). какой объем памяти в байтах занимает данное сообщение?...
vovaq6oziu5d
10.04.2022 09:13
Напишите программу, которая получает на вход два числа и выводит их сумму...
Anytohka0cosmos
16.10.2022 21:55
1.Расскажите о панелях обработки текста в интерфейсе программы Paint.Net....
kostyaborisenk3
08.02.2022 17:01
восприятия-стихотворение в учебнике...
Анигелятор228
24.08.2021 03:07
Функция, определяющая тип используемой переменной...
olka52
08.10.2021 02:47
Составить программу вычисления выражения графически...
leomax2
13.05.2023 19:00
Тип роботов . задали в шаге . . кроссворд по робототехники...
оргеотепок
07.07.2020 19:02
Спиши текст. Поставь ударение и обозначь точкой безударные гласные.урзикКотик Мурзик был озорник. Однаждыон сидел на дереве. На сук селаворона. Котик прыгнул вороне наспину....
Lina111334
09.03.2020 22:08
2. Чому почалося руйнування системи ГУЛАГу (ГУТAБу)?...
elvira1234123
09.03.2020 22:08
Діагональ ромба дорівнює 14 см і 48 см. Знайдіть сторону ромба...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
ReadSeqInteger('Вводите:', ReadInteger('n='))
.Where(t -> t < 0).Sum.Println
end.
Примерn= 7Вводите: 13 -27 52 0 5 -10 -42-79