Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Medewjik
10.01.2023 00:07 •
Информатика
Составьте программу для решения следующей массив б задан случайным образом подсчитать сумму элементов массива состоящих из нечётных чисел
Показать ответ
Ответ:
kirik2017
02.07.2020 18:59
Var b:array [1..100] of integer; s,i:integer;
begin
for i:=1 to 100 do
begin
b[i]:=random(-100,100);
if odd(b[i]) then s:=s+b[i];
end;
write(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Danilove5
30.03.2020 19:40
Некоторое число в двоичной системе счисления записывается как 100110. определите это число и запишите его в ответе в десятичной системе счисления....
арсений213
30.03.2020 19:40
Составьте программу, входящую true,если высказывание является истинным,и false в противном случае: а)сумма цифр трехзначного числа х является четным числом; б) треугольник...
Виктория17121
17.07.2020 13:27
Домашнее задание: Напишите ответы на контрольные вопросы. Выполните практикум. Раздеn 5, 5 53-54 стр 150, 10 км...
Askmay
29.02.2020 10:20
Какое из перечисленных ниже устройств для работы лишнее принтер, сканер, плоттер, графический дисплей...
eliseyivanov9
07.04.2021 23:47
Что такое облачная технология? Для чего она используется? - В чем преимущества и недостатки облачных технологий? - Перечислите виды облачных сервисов. - Что такое «облачные...
ivlevv671
08.09.2022 17:16
с задачей. желательно распишите всё очень надо...
Файрома
19.01.2021 04:06
Раскрой скобки 1/17(15t-8)мешайте...
Покемон123456789
16.11.2022 09:53
используя информационные ресурсы подготовьте сообщение о при к воде у растений разных экологических групп напишете мне план такого сообщения...
соаовоых
25.06.2021 13:35
инглиииш ответить на 2 вопроса (на ответ не смотреть там может неправильно))...
Maksim77769
29.08.2022 18:46
Позначте кількість електронів, які беруть участь в утворенні хімічних зв язків у молекулі амоніаку: 1 - 4;2 - 6;3 - 8;4 - 2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i:=1 to 100 do
begin
b[i]:=random(-100,100);
if odd(b[i]) then s:=s+b[i];
end;
write(s);
end.