Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Niki567890
14.07.2020 23:24 •
Информатика
Дан одномерный массив из 5 элементов. найти сумму всех положительных элементов массива. начало такое var a: array[1..5] of integer;
Ответ:
lidochka4
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 оценок)
Популярные вопросы: Информатика
АуTист
21.03.2022 10:12
Сделать рассказ в котором героями происходит без определенной цели....
алинкаблн
02.01.2020 14:28
Пример циклического алгоритма из жизни в виде схемы...
слава522
28.07.2022 07:01
9класс циклическое программирование 1.составьте программу которая вычисляет сумму натуральных чисел кратных 4 в диапазоне от 5 до 45 2.найти сумму нечетных чисел...
KaralinaMerser
29.09.2020 00:59
Используя датчик случайных чисел, заполните массив из двадцати элементов, неповторяющимися числами. определить сумму любых десяти элементов массива...
AyHaN123
12.02.2021 19:43
Сколько секунд потребуется модему, информацию со скоростью 9 600 бит/с, чтобы передать цветное растровое изображение размером 1024×800 пикселей, при условии, что...
7164260
20.04.2022 04:04
Напишите программу в паскале с div и mod! заранее ! вводится трехзначное целое число. получить новое число, записанное этими же цифрами, но в обратном порядке....
Gbdngggvg
27.08.2021 08:15
Дана строка символов,состоящая из букв,цифр,запятых,точек.удалите из данной последовательности все буквы.полученную строку вывести на экран...
AnzhelaBagdasaryan
24.05.2023 05:34
Написать программы pascal abc 1.сначала вводится кол-во чисел, а затем сами числа вычислить сумму числ не оканчивающихся на 0, кратных 5 отрицательных 2.сначала вводится...
Ясныйпень
24.05.2023 05:34
Спо информатике, . системы счисления. заранее . 1) дано: a=cf₁₆, b=321₈ какое из чисел x, записанных в двоичной системе, отвечает уравнению a x b ? 2) дано: a=b5₁₆,...
Александа7
24.05.2023 05:34
Влодке, вмещающей только двух человек, с левого берега реки на правый должны переправиться два миссионера и два . миссионеры боятся , и хотят всё время быть вдвоём....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
for i:=1 to n do
if a[i]mod 2 <>0 then summa:=summa+a[i];
end.