Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Чел1046738
24.02.2020 10:22 •
Информатика
Дан одномерный массив из 5 элементов. найти сумму всех положительных элементов массива. начало такое var a: array[1..5] of integer;
Показать ответ
Ответ:
mklslajh
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 оценок)
Популярные вопросы: Информатика
Айхан111111111
27.08.2020 22:02
Нужно написать программу, блог схему(можно и без, но желательно), осень вас мне...
gela06
29.09.2022 19:45
Пользователь вводит число соответствующие месяцу определите какому времени года соответствует этот месяц . в форме программы poscal...
DANA3072005
05.04.2023 05:26
С++ Дано рядок. Перетворити в ньому усі рядкові літери в прописні, а прописні - в рядкові....
savelevad120
18.06.2020 15:43
Решите систему линейных уравнений подстановки...
хех60
10.09.2021 12:21
Продукцией городского молочного завода являются молоко, кефир и сметана. На производство 1т молока, кефира и сметаны требуется соответственно 1,01; 1,01 и 9,45т молока. При...
SApevalova
05.04.2022 00:47
5. Складений дієслівний присудок ужито в реченні A Почало рясно осипатися на бульварах Києва жовтогаряче листя.Б Були тут люди вищої краси.В Людей із чистим серцем чи доброю...
CwetochekAnfisa
20.04.2021 17:28
y=13x⁴-6x³+4x²+3x0=1Написать ур-ни касательной к графику функции...
Trashers228
25.05.2022 00:24
I variant I. Read the task and fill the gaps with the words: athletes Championships Games give live medal race rivals track training I d been 1 hard and I was fitter than...
KarinkaChernov
05.02.2023 20:17
Берілген тақырыптың бірін таңдап, шағын мақала жазыңыз. Жазба жұмысында тыныс белгілердің дұрыс қойылуына назар аударыңыз. (90-100 сөз).1.Мектебімізге өзіміз қазақ тілі мен...
zhahbota
26.07.2021 14:46
Доведіть що середини сторін опуклого чоторикуткика є вершинами паралелограма...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.