Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Nikita45Nikita45
01.12.2022 03:15 •
Информатика
Дан одномерный массив из 5 элементов. найти сумму всех положительных элементов массива. начало такое var a: array[1..5] of integer;
Показать ответ
Ответ:
nastiksergi7
17.07.2020 16:18
Summa:=0;
for i:=1 to n do
if a[i]mod 2 <>0 then summa:=summa+a[i];
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olyakurets
15.04.2022 08:29
До ть будь ласка ПлІЗзззззз...
rakhmanets
31.10.2022 09:32
Напишите программу, которая вводит натуральные числа a и b , и выводит сумму квадратов натуральных чисел в диапазоне от a до b . язык python...
7gekap0bshm
15.12.2022 15:32
1как ты сохраняешь и открываешь ежедневно созданную или обработан-ную информацию? 2. как ты понимаешь термин «файл»? 3. из каких частей состоит полное имя файла? 4. как бы...
ВаЛеРа06
10.01.2022 09:04
Які дії можна виконати з контурами фігур...
luizasham13
31.07.2022 01:07
Существуют два вида сносок укажите 1.простая( сноска размещается внизу страницы , содержащей текст) и концевая ( сноска размещается внизу последней страницы текстового документа).2....
AbashkinaEvgenia98
10.09.2022 11:35
Информатика:Напишите программу...
nenftd
14.10.2022 16:11
Записать алгебраическое выражение, в программный код Паскаль...
Самацвет
13.10.2021 18:04
Сходства и различия доменного адреса с ip адресом по 2 сходства и 2 различия...
BD20051
31.05.2023 16:34
Как мегабайты перевести в килобайты...
Soqr
14.04.2021 20:12
подготовь заметку в школьную газету (5-8) предлажений о последствиях нарушения эргономических требований при использовании компьютера...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
for i:=1 to n do
if a[i]mod 2 <>0 then summa:=summa+a[i];
end.