Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
elena11060207
02.09.2020 14:58 •
Информатика
Составить программу для ввода десяти элементов масива и подстета суммы отрицательных чисел масива
Показать ответ
Ответ:
molonchik
21.06.2020 04:36
Var x, i: integer;
a: array [0..9] of integer;
begin
for i := 0 to 9 do
begin
readln(a[i]);
if (a[i] < 0) then x := x + a[i];
end;
writeln(x);
end.
Вот так это сделать можно)
0,0
(0 оценок)
Популярные вопросы: Информатика
mashenkamini
26.08.2021 07:44
Какое число будет выведено на экран монитора после выполнения данного фрагмента программы ...
bobina2
27.11.2022 16:45
Знайти перше натуральне число значення якого дорівнює добутку непарних одноцифрових чисел...
alexaFat
07.10.2020 15:52
Необходимо собрать команду из 6 человек, всего 30 кандидатов. вопрос, сколько вариантов команд можно собрать таким образом(каждый кандидат индивидуальная личность - это...
MissEvaStar
27.04.2022 22:49
в чем ошибка Вот само задание: В массиве хранится информация о количестве осадков, выпавших за каждый день июня. Определить общее количество осадков, выпавших за каждую...
Кристина6965
11.12.2020 12:08
очень нужно сдать до завтра( Надо сделать в Pascal ABC (модуль Graph) три флага: Украина, Македония и Сирия. Скиньте фото или текст программы, главное чтобы работало ...
kz666zlo1
21.06.2022 11:19
Дыхание растений . влияние различных условий на дыхание растений кратко кратко...
Danilkez
21.06.2022 11:19
Валюминиевой кастрюле массой 600 г нагревается вода объемом 3 л от 20 градусов цельсия до кипятка. какое количество теплоты пойдёт на нагревание кастрюли и воды?...
AhhaYakovkeva
21.06.2022 11:19
1) фонетический разбор слова: атласная. 2)разбор слов по составу: сливались. 3) морфологический разбор слова. сбрасывали. 4) синтаксический разбор предложения: ветер ласково...
Ваняяш
21.06.2022 11:19
Какой суфикс показывает начальную форму глагола...
zimina31
21.06.2022 11:19
Найти глагол состоящий только из корня и окончания,!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array [0..9] of integer;
begin
for i := 0 to 9 do
begin
readln(a[i]);
if (a[i] < 0) then x := x + a[i];
end;
writeln(x);
end.
Вот так это сделать можно)